在导入到Excel之前，我想编写程序清除Excel中原有的内容，不知如何实现阿？
谢谢指点迷津。

Excel模板不可以被删除，只能删除其他数据。

其实能够删除指定单元格的数据就可以了，就是没有办法实现呢

这是打开一个已经存在的excel文件,然后往指定单元格中写入数据.
至于如何清除相应单元格内容,应该就不难了吧.
Function FillExcel()
  '//第三次更改
Dim strsource, strdestination As String
 strdestination = App.Path & "\硫化产量统计.xlt"
 Set mobjexcel = New Excel.Application
 Set mobjexcel = CreateObject("Excel.Application")
 mobjexcel.Visible = True
 Set mobjworkbook = mobjexcel.Workbooks.Open(strdestination)
 Set xlsheet = mobjworkbook.Worksheets(1)
   i = 0
 With mobjworkbook.ActiveSheet
  While Not rs.EOF
  
  .Cells(4 + i, 1).Value = rs!日期
  .Cells(4 + i, 2).Value = rs!机台号
  .Cells(4 + i, 3).Value = rs!姓名
  .Cells(4 + i, 4).Value = rs!硫化品代码
  .Cells(4 + i, 5).Value = rs!col
  .Cells(4 + i, 6).Value = "条"
  .Cells(4 + i, 7).Value = rs!班次
  i = i + 1
  
   rs.MoveNext
 Wend
 End With

 rs.Close
 sqlcon.Close
  xlsheet.Visible = True
  mobjexcel.DisplayAlerts = False
  Set mobjexcel = Nothing
  End Function

首先谢谢了阿！待慢慢理解后再谢！

大哥，我发这个求助帖子之前已经把数据导入到Excel中了，就是不会删除里面的内容

明白了！呵呵

会导不会删啊.我晕...

还是不行

'导出数据到Excel中
Private Sub cmdOutput_Click()
     
     Dim objFileSystem As Object
     Dim objExcelText As Object
     Dim ss As String
     Dim i, j As Integer
     Dim num As Integer
     
     num = 1
     Set xlApp = CreateObject("Excel.Application")
     xlApp.Visible = True
     Set xlBook = xlApp.Workbooks.Open("D:\材料追踪.xls")
     Set xlsheet = xlBook.Worksheets(1)
     xlsheet.Activate
     

     '将数组中的数据逐个复制到Ecxel报表的单元格中
     For i = 1 To (aNum - 1) / 5 ' aNum-1是个全局变量，数值从 cmdOK_Click()事件中得到,表示数组的大小
        For j = 1 To 5
            xlsheet.Cells(4 + i, j) = a(num)
            num = num + 1
        Next
     Next

     xlsheet.Cells(2, 5) = Format(Now, "AMPM(YYYY-MM-DD hh:mm:ss)")
     
     xlBook.RunAutoMacros (xlAutoOpen)
     cmDialog.CancelError = False
     cmDialog.FileName = "材料使用情况跟踪表"
     cmDialog.DialogTitle = "Save Export File"
     cmDialog.DefaultExt = "*.xls"
     strFileName = cmDialog.FileName
     Set objFileSystem = CreateObject("Scripting.FileSystemObject")
     msg = MsgBox("成功导出！", vbOKOnly)
End Sub

你的方法和我的不一样