asp 将表格数据导出到EXCEL的问题
我想将数据库（.mdb）数据表中的数据显示在网页表格上（table），然后通过点击一个按钮实现将表格内容导出到EXCEL或WORD，怎样实现？下面是我的代码，很早以前可以...
我想将数据库（.mdb）数据表中的数据显示在网页表格上（table），然后通过点击一个按钮实现将表格内容导出到EXCEL或WORD，怎样实现？下面是我的代码，很早以前可以成功导出，现在不能了，不知道问题出在哪？户高手指教！
<%
set conn=server.createobject("adodb.connection")
sqlstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/xmb.mdb")
conn.Open sqlstr
sql = "select * from 项目表"
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
%>
<body>
<div align="center">
<center>
<table id = "PrintB" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" bordercolorlight="#008080" bordercolordark="#FFFFFF">
<TR bgcolor="#008080">
<%for i=0 to rs.fields.count-1%><TD><%=rs.fields(i).name%></TD><%next%>
</TR>
<%do until rs.eof%>
<TR>
<%for a=0 to rs.fields.count-1%><TD ><%=rs.fields(a).value%></TD><%next%>
</TR>
<%rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</TABLE>
</center>
</div>
<input type="button" onclick="TableToExcel('PrintB')" value="导出到Excel">
<script language="javascript">//--本程序实现将表格内容导出到Excel工作表
function TableToExcel(tableid) {
var curTbl = document.getElementById(tableid);
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel = document.body.createTextRange();
sel.moveToElementText(curTbl);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}
</script>
</body></html>
以上代码运行后得不到结果，会产生“automation 服务器不能创建对象”错误。
不要告诉我注册什么组件，因为我在网查到许多这方面的说法，注册了组件，但还是没有用！！谢了 展开
<%
set conn=server.createobject("adodb.connection")
sqlstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/xmb.mdb")
conn.Open sqlstr
sql = "select * from 项目表"
set rs = server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,1
%>
<body>
<div align="center">
<center>
<table id = "PrintB" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" bordercolorlight="#008080" bordercolordark="#FFFFFF">
<TR bgcolor="#008080">
<%for i=0 to rs.fields.count-1%><TD><%=rs.fields(i).name%></TD><%next%>
</TR>
<%do until rs.eof%>
<TR>
<%for a=0 to rs.fields.count-1%><TD ><%=rs.fields(a).value%></TD><%next%>
</TR>
<%rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</TABLE>
</center>
</div>
<input type="button" onclick="TableToExcel('PrintB')" value="导出到Excel">
<script language="javascript">//--本程序实现将表格内容导出到Excel工作表
function TableToExcel(tableid) {
var curTbl = document.getElementById(tableid);
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel = document.body.createTextRange();
sel.moveToElementText(curTbl);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}
</script>
</body></html>
以上代码运行后得不到结果，会产生“automation 服务器不能创建对象”错误。
不要告诉我注册什么组件，因为我在网查到许多这方面的说法，注册了组件，但还是没有用！！谢了 展开
1个回答
展开全部
网页功能：打印提示错误automation 服务器不能创建对象解决办法
http://hi.baidu.com/sale%5Fbysj/blog/item/94f97d2647a0a10d4d088d76.html
如果你的功能实现没有问题的话，可以按我上面写的文章解决问题
如果有问题的话 我其他文章里有不同的实现asp 将表格数据导出到EXCEL的方法 都在原创文章里面
http://hi.baidu.com/sale%5Fbysj/blog/item/94f97d2647a0a10d4d088d76.html
如果你的功能实现没有问题的话，可以按我上面写的文章解决问题
如果有问题的话 我其他文章里有不同的实现asp 将表格数据导出到EXCEL的方法 都在原创文章里面
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
