[求助]怎么才能把网页中的表格导出到excel或者word里面啊？ - ASP技术论坛

windy2yuyu

等　级：新手上路
帖　子：54
专家分：0
注　册：2005-8-3

楼主

问题点数：0 回复次数：8

[求助]怎么才能把网页中的表格导出到excel或者word里面啊？

我想把页面中的表格和里面的数据都导出到excel或者word里面，然后就可以打印，这该怎么实现呢？

搜索更多相关主题的帖子: excel　网页　 word　表格　

2005-08-19 18:34

toolag

等　级：新手上路
帖　子：152
专家分：0
注　册：2005-7-30

第 3 楼

得分:0

如果只是自己搞搞, 那么选中网页中的表格, 然后复制, 粘贴到 EXCEL 或者 WORD 都可以,
EXCEL 只保留单元格关系
WORD 表格格式将会保留,粘贴时会有一段时间卡,耐心等待

VB, Delphi, ASP, PHP, JSP, .NET MS SQL, My SQL, Oracle Diablo, StarCraft, WarCraft, World of Warcraft

2005-08-20 10:53

regedit

等　级：贵宾
威　望：19
帖　子：950
专家分：0
注　册：2004-6-8

第 5 楼

得分:0

你的意思，应该是把数据库里的东西导出到excel吧？？？

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

2005-08-20 12:23

islet

等　级：贵宾
威　望：89
帖　子：6548
专家分：0
注　册：2005-1-28

第 7 楼

得分:0

asp生成excel 用FSO 生成文本 *.csv（excel 报表）单元格用,隔开换行用chr(13) 基本如下 <%dim excelstring dim excelstr dim excelstr2 dim head excelstring = "" head = "Sn" & "," & "Reason" & "," & "Empid" & "," & "Empname" & "," & "Ext" & "," & "Depname" excel="creat" If excel<>"" Then Set rs2 = Server.CreateObject ("ADODB.Recordset") sql2 = "Select * from value_table " rs2.open sql2,conn,1,3 do while not rs2.eof excelstr =" " & rs2(0) & """,""" & rs2(1) & """,""" & rs2(2) & """,""" & rs2(3) & """,""" & rs2(4) & """,""" & rs2(5) & """" excelstr2 = excelstr2 & Chr(13) & excelstr rs2.movenext loop excelstring = head &Chr(13)& excelstr2 'response.Write(excelstring) 'rs2.close Set rs2=Nothing set fs = CreateObject("scripting.FileSystemObject") set exc = fs.OpenTextFile(server.MapPath("excel.csv"),2,True) exc.write(excelstring) if fs.FileExists(Server.MapPath("excel.csv")) then Response.Write("<a href="/excel.csv>";报表已经生成，点击查看</a>") 'Response.write(excelstring) else Response.Write("生成报表失败！") end if End if%>

">东搞一下西搞一下

2005-08-20 13:29

anjincheng

等　级：论坛游民
威　望：5
帖　子：728
专家分：31
注　册：2005-7-27

第 9 楼

得分:0

[CODE][CODE]<%dim excelstring dim excelstr dim excelstr2 dim head excelstring = "" head = "Sn" & "," & "Reason" & "," & "Empid" & "," & "Empname" & "," & "Ext" & "," & "Depname" excel="creat" If excel<>"" Then Set rs2 = Server.CreateObject ("ADODB.Recordset") sql2 = "Select * from value_table " rs2.open sql2,conn,1,3 do while not rs2.eof excelstr =" " & rs2(0) & """,""" & rs2(1) & """,""" & rs2(2) & """,""" & rs2(3) & """,""" & rs2(4) & """,""" & rs2(5) & """" excelstr2 = excelstr2 & Chr(13) & excelstr rs2.movenext loop excelstring = head &Chr(13)& excelstr2 'response.Write(excelstring) 'rs2.close Set rs2=Nothing set fs = CreateObject("scripting.FileSystemObject") set exc = fs.OpenTextFile(server.MapPath("excel.csv"),2,True) exc.write(excelstring) if fs.FileExists(Server.MapPath("excel.csv")) then Response.Write("<a href="/excel.csv>";报表已经生成，点击查看</a>") 'Response.write(excelstring) else Response.Write("生成报表失败！") end if End if%>[/CODE][/CODE]

我是农家的孩子，我有农家孩子的本色！

2005-08-20 14:47