我想用ASP从远端获得数据然后保存为EXCEL存到本地，请大家帮忙

[wisdom5025]

主要问题是怎么将网页表格的内容存到本地

[wyjb]

没有怎么复杂，直接另存为。XLS文件就可以了。至于怎么在代码中实现“另存为”功能，网上多的是！

[Cooly]

<%
'假设rs为结果集
Set conn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
rs.open "select * from YourTable",conn,3,1

Response.write "<Script language=vbs>" & vbCrlf
Response.write "Dim MyApp" & vbCrlf
Response.write "Dim MyBook" & vbCrlf
Response.write "Dim MySheet" & vbCrlf
Response.write "Set MyApp = CreateObject(""Excel.Application"")" & vbCrlf
Response.write "MyApp.Visible = False" & vbCrlf
Response.write "Set MyBook = MyApp.Workbooks.Add()" & vbCrlf
Response.write "Set MySheet = MyBook.Worksheets(1)" & vbCrlf

J = 1
Do Until rs.EOF
For I = 1 To rs.Fields.Count
Response.write "MySheet.Cells(" & J & "," & I & ") = " & chr(34) & rs.Fields(I - 1) & chr(34) & vbCrlf
Next
rs.MoveNext
J = J + 1
Loop

Response.write "MyBook.SaveAs ""C:\11.xls""" & vbCrlf

Response.write "MyApp.Quit" & vbCrlf

Response.write "Set MyApp = Nothing" & vbCrlf
Response.write "</Script>"
%>

[Cooly]

<%
'假设rs为结果集
response.write "<script language=vbs>" & vbcrlf
do until rs.eof
for i=0 to rs.fields.count-1
'使用Excel.Sheet对象或Excel.
Application对象进行操作
next
rs.movenext
loop

response.write "</script>"
%>

[wisdom5025]

这样能保存到本地计算机上吗，朋友能说详细 点吗

[Cooly]

<%
'假设rs为结果集
response.write "<script language=vbs>" & vbcrlf
Response.write "Dim MyApp" & vbCrlf
Response.write "Dim MyBook" & vbCrlf
Response.write "Dim MySheet" & vbCrlf
Response.write "Set MyApp = CreateObject(""Excel.Application"")" & vbCrlf
Response.write "MyApp.Visible = False" & vbCrlf
Response.write "Set MyBook = MyApp.Workbooks.Add()" & vbCrlf
Response.write "Set MySheet = MyBook.Worksheets(1)" & vbCrlf

Response.write "J = 1" & vbCrlf
Response.write "Do Until rs.EOF" & vbCrlf
Response.write " For I = 1 To rs.Fields.Count" & vbCrlf
Response.write " MySheet.Cells(J, I) = rs.Fields(I - 1)" & vbCrlf
Response.write " Next" & vbCrlf
Response.write " rs.MoveNext" & vbCrlf
Response.write " J = J + 1" & vbCrlf
Response.write "Loop" & vbCrlf

Response.write "MyBook.SaveAs ""C:\11.xls""" & vbCrlf

Response.write "MyApp.Quit" & vbCrlf

Response.write "Set MyApp = Nothing" & vbCrlf
Response.write "</Script>"

[wisdom5025]

我对Excel.Sheet对象或Excel.
Application对象不熟悉

[Cooly]

写错了。 @_@

[wisdom5025]

谢谢朋友

[Cooly]

<%
'假设rs为结果集
Response.write "<Script language=vbs>" & vbCrlf
Response.write "Dim MyApp" & vbCrlf
Response.write "Dim MyBook" & vbCrlf
Response.write "Dim MySheet" & vbCrlf
Response.write "Set MyApp = CreateObject(""Excel.Application"")" & vbCrlf
Response.write "MyApp.Visible = False" & vbCrlf
Response.write "Set MyBook = MyApp.Workbooks.Add()" & vbCrlf
Response.write "Set MySheet = MyBook.Worksheets(1)" & vbCrlf

J = 1
Do Until rs.EOF
For I = 1 To rs.Fields.Count
Response.write "MySheet.Cells(J, I) = " & rs.Fields(I - 1)
Next
rs.MoveNext
J = J + 1
Loop

Response.write "MyBook.SaveAs ""C:\11.xls""" & vbCrlf

Response.write "MyApp.Quit" & vbCrlf

Response.write "Set MyApp = Nothing" & vbCrlf
Response.write "</Script>"
%>

[wisdom5025]

什么写错了

[wisdom5025]

能不能留下你的QQ，我的是125568265
怎么给分啊

[Cooly]

我不怎么用QQ，你试试看代码能不能用？
我没有测试。

[wisdom5025]

我晚上才能试，谢谢你帮我解决了一难题

[blues-star]

http://runmin.europe.webmatrixhosting.net/sheet.htm

前面几个错误提示忽略就可以了，是原始页面的错误，不是导出脚本的错误。

[Cooly]

我的代码中还是有问题。