你的程序中rs怎么来的哦〉？

你的recordset 我没有办法使用的，因为我已经关闭了阿

我是将数据库中相应的内容倒出到了excel 中.
=======================================
用一个循环,让相应单元格的值等于空不就清空了...
比如:
.Cells(4 + i, 1).Value = ""

你的是用recordset 的，

我的如下：
Dim objFileSystem As Object
     Dim objExcelText As Object
     Dim i, j As Integer
     Dim num As Integer
     Dim usrow 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
     
     '清除Excel中原有的信息
     usrow = xlsheet.UsedRange.Rows.count
     For i = 5 To usrow
          xlsheet.Cells(i, 1) = ""
          xlsheet.Cells(i, 2) = ""
          xlsheet.Cells(i, 3) = ""
          xlsheet.Cells(i, 4) = ""
          xlsheet.Cells(i, 5) = ""
     Next
     xlsheet.Cells(2, 5) = "" '清除时间

     '将数组中的数据逐个复制到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)")
     

感谢帮助！

模板不动不行?
要生成时,直接把模板COPY过来不就行了

Dim Ws As Worksheet
Ws.Cells.Clear

这样就可以清除所有内容.