Asp的参考下: http://expert.csdn.net/Expert/topic/2301/2301258.xml?temp=.356106 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\shengchan.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 在我机子上运行成功! 也希望你能成功! 呵呵
http://expert.csdn.net/Expert/topic/2301/2301258.xml?temp=.356106 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\shengchan.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 在我机子上运行成功!
也希望你能成功!
呵呵
1、http://www-900.ibm.com/developerWorks/cn/xml/tips/x-tipword/index.shtml
2、http://www-900.ibm.com/developerWorks/cn/java/l-java-tips/index.shtml
3、http://www-900.ibm.com/developerWorks/cn/java/l-javaExcel/index.shtmlhttp://www.andykhan.com/jexcelapi/http://expert.csdn.net/Expert/topic/2168/2168595.xml?temp=6.618679E-03