vb向excel模板中填充数据

请参考：  
   
  ("工程"/"引用"/引用Microsoft   Excel   X.0   Object   Library)    
   
  Private   Sub   Command1_Click()  
          Dim   xlApp   As   New   Excel.Application   '定义并创建EXCEL对象  
          Dim   xlBook   As   Excel.Workbook   '创建工作簿  
          'xlapp.DisplayAlerts   =False  
          xlApp.Visible   =   True   '让Excel可见  
          Set   xlBook   =   xlApp.Workbooks.Open(App.Path   &   "/dot.xls")   '打开Excel模板  
          With   xlBook.ActiveSheet  
                  .Cells(1,   1)   =   1231   '填充第一行第一列的值  
                  '......     填充其他行列的值，具体的填充位置得根据模板来做  
          End   With  
  '         xlBook.PrintPreview     '打印预览  
   
        '给工作表设置保护，让它只能看，不能编辑  
  ActiveSheet.Protect   DrawingObject