主题：ASP中数据的导出
yoghourt
[专家分：0] 发布于 2004-02-24 14:18:00
请问各位高手能不能将ASP生成的报表导出到EXCEL文件.多谢了.
回复列表 （共84个回复）
61 楼
☆蓝兔☆ [专家分：60] 发布于 2005-10-28 15:43:00
强呀!
这个代码正是我想要的,收了
62 楼
longlong16 [专家分：10670] 发布于 2005-12-15 10:22:00
话就不多说了,一个字就够了,大家知道我要说的字了吧,所以一个字" "!
63 楼
zsf2005 [专家分：0] 发布于 2006-01-12 17:55:00
！！！！！！！！！！
64 楼
凝智 [专家分：0] 发布于 2006-03-01 10:51:00
牛人好多阿
这个论坛算是来对了!
呵呵!
今后多多请教!
65 楼
自由人642 [专家分：0] 发布于 2006-03-01 20:55:00
谢谢了，高手！！
66 楼
arainpoint [专家分：0] 发布于 2006-03-13 12:54:00
我试了第二种，好像不行。不知有哪位大侠操作成功的？
67 楼
arainpoint [专家分：0] 发布于 2006-03-13 12:59:00
我从网上看到了下列程序，很简单，但我试了试，好像不行。不知那位大侠帮助看看，这段代码可用吗？
假设定义的记录名为myres
Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
myexcel.visible=true
mysheet.Cells.CopyFromRecordset myres
mybook.SaveAs (m_ExcelName) '保存文件
68 楼
arainpoint [专家分：0] 发布于 2006-03-13 13:12:00
我调试的代码如下：请大侠们帮助看看哪里处了问题？先行谢谢了。
sub saveasexl2()
tempzy = inputbox ("请输入保存的路径：","保存","D:\报表.xls")
if tempzy<>"" then
sql="select * from jqlxmd "
rs.open sql,cn,3,1
Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
set mybook = myexcel.Workbooks.Add
Set mysheet = mybook.Worksheets.Add
myexcel.visible=true
mysheet.Cells.CopyFromRecordset rs
mybook.SaveAs (tempzy)
end if
end sub
69 楼
hziee513 [专家分：0] 发布于 2006-03-30 16:25:00
感谢牛人啊！！
我可以少走很多弯路了！！
70 楼
piaoy [专家分：20] 发布于 2006-04-01 12:52:00
我的小站有
http://www.piaoy.cn/cxxz.asp
我来回复
您所在位置：