社区
ASP
帖子详情
我想用ASP从远端获得数据然后保存为EXCEL存到本地,请大家帮忙
wisdom5025
2003-08-25 12:04:50
主要问题是怎么将网页表格的内容存到本地
...全文
68
15
打赏
收藏
我想用ASP从远端获得数据然后保存为EXCEL存到本地,请大家帮忙
主要问题是怎么将网页表格的内容存到本地
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
15 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Cooly
2003-08-25
打赏
举报
回复
我的代码中还是有问题。
blues-star
2003-08-25
打赏
举报
回复
http://runmin.europe.webmatrixhosting.net/sheet.htm
前面几个错误提示忽略就可以了,是原始页面的错误,不是导出脚本的错误。
wisdom5025
2003-08-25
打赏
举报
回复
我晚上才能试,谢谢你帮我解决了一难题
Cooly
2003-08-25
打赏
举报
回复
我不怎么用QQ,你试试看代码能不能用?
我没有测试。
wisdom5025
2003-08-25
打赏
举报
回复
能不能留下你的QQ,我的是125568265
怎么给分啊
wisdom5025
2003-08-25
打赏
举报
回复
什么写错了
Cooly
2003-08-25
打赏
举报
回复
<%
'假设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
2003-08-25
打赏
举报
回复
谢谢朋友
Cooly
2003-08-25
打赏
举报
回复
写错了。 @_@
wisdom5025
2003-08-25
打赏
举报
回复
我对Excel.Sheet对象或Excel.
Application对象不熟悉
Cooly
2003-08-25
打赏
举报
回复
<%
'假设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
2003-08-25
打赏
举报
回复
这样能保存到本地计算机上吗,朋友能说详细 点吗
Cooly
2003-08-25
打赏
举报
回复
<%
'假设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>"
%>
Cooly
2003-08-25
打赏
举报
回复
<%
'假设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>"
%>
wyjb
2003-08-25
打赏
举报
回复
没有怎么复杂,直接另存为。XLS文件就可以了。至于怎么在代码中实现“另存为”功能,网上多的是!
WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.
asp
x怎样将后台生成的在内
存
中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到下一页显示...
统一专用名词翻译
在关于技术方面资料中总有很多新词汇,新被定义的词汇或同样的词汇的有多词义,有时候可能是大家理解的不同或不小心至此,现在我
想
收集一些被大家统一取名或已经定下他们词汇含义的词!并将他们写在这里,这是一个...
asp
经典例子
主 题:
ASP
常见问题及解答征集中,
请
大家积极参与~~~~~~~~ 作 者: awaysrain (绝对零度)(新的一年,新的开始) 等 级: 信 誉 值: 155 所属论坛: Web 开发
ASP
问题点数: 200 回复次数: 160 发表...
新手电脑硬件软件故障解答(三)
移动硬盘拷贝
数据
蓝屏 问:我从朋友处借来一个百事灵30GB USB移动硬盘,安装好以后开始拷贝
数据
,可拷贝了大约1GB内容后机器就出现了蓝屏,系统提示说找不到移动硬盘,但重新拔插一遍后又可以使用。
请
问这是怎么回...
批处理 bat cmd 命令大全
get 或 recv [远程主机文件名] [下载
到本地
后的文件名] 从
远端
主机中传送至本地主机中 mget [remote-files] 从
远端
主机接收一批文件至本地主机 mput local-files 将本地主机中一批文件传送至
远端
主机 dir 或 ...
ASP
28,389
社区成员
357,069
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章