高手帮帮忙，有源码。谢了！

[julong88]

<%
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false　　　　
objExcelApp.Application.Visible = false

　　　　 　　　　　　　　　　
objExcelApp.Workbooks.Open("e:\web\jianzhu\book1.xls") '打开Excel模板
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)


objExcelSheet.cells(2,1).value= "送料人"
objExcelSheet.cells(2,2).value= "材料名称"
objExcelSheet.cells(2,3).value= "规格"
objExcelSheet.cells(2,4).value= "重量"


i=2
while not rs.eof
i=i+1
objExcelSheet.cells(i,1).value=rs("送料人")
objExcelSheet.cells(i,2).value=rs("材料名称")
objExcelSheet.cells(i,3).value=rs("规格")
objExcelSheet.cells(i,4).value=rs("zll")
rs.movenext
wend
objExcelBook.Save　　　　　
objExcelApp.Quit　　
set objExceApp=Nothing
set rs=nothing
%>

[julong88]

谢了!

[xiaobaowu]

晕，你想让我们帮你什么还没说呀？

[julong88]

我想把查出来的数据导入到excel里

[julong88]

没人会？还是嫌分少？
不够了再加！

[xiaobaowu]

你中间有一些地方写错了。这是在我机器上运行成功的代码。由于我这没有你的数据库，所以写了固定的值。你试试，
<%
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Workbooks.Open("F:\MyAsp\Book1.xls") '打开Excel模板
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)


objExcelSheet.cells(2,1).value= "送料人"
objExcelSheet.cells(2,2).value= "材料名称"
objExcelSheet.cells(2,3).value= "规格"
objExcelSheet.cells(2,4).value= "重量"

i=2
'while not rs.eof
' i=i+1
' objExcelSheet.cells(i,1).value=rs("送料人")
' objExcelSheet.cells(i,2).value=rs("材料名称")
' objExcelSheet.cells(i,3).value=rs("规格")
' objExcelSheet.cells(i,4).value=rs("zll")
' rs.movenext
'wend
i=i+1
objExcelSheet.cells(i,1).value="a送料人"
objExcelSheet.cells(i,2).value="b材料名称"
objExcelSheet.cells(i,3).value="c规格"
objExcelSheet.cells(i,4).value="dzll"
'rs.movenext
objExcelBook.Save
objExcelApp.Quit
set objExceApp=Nothing
'set rs=nothing
response.write("ok")
%>