dim i,j,k
On Error Resume Next
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("c:/books.xls") '打开Excel模板
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
i=1
for each x in rs.fields
objExcelSheet.cells(5,i).value= x.name
i=i+1
next
k=1
j=5
while not rs.eof
for each x in rs.fields
objExcelSheet.cells(j+1,k).value=x.value
k=k+1
next
k=1
rs.movenext
j=j+1
wend
objExcelBook.Save
objExcelApp.Quit
set objExceApp=Nothing
set rs=nothing
rs.Close