else
dim i,j,k
On Error Resume Next
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("e:\web\jianzhu\ruku.xls") '打开Excel模板
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(3)
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
**************************************
else前面的内容为判断纪录集是否为空
objExcelBook.Sheets(3) 为选择在那一页输入