老生常谈: asp 导出页面数据到Excel
admin 发表于 2010-08-28 | 来源：互联网 | 阅读：
求一个 比较好的 asp 导出页面数据到Excel 的方法，之前用的是JS ，
如下：
function AllAreaExcel()
{
var oXL =new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
sel.moveToElementText(orderInfo);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible =true;
}
但有两个缺陷：
1 需要在服务器上安装 Excel （可不可以不用安装EXCEL ，只需注册一下就行了？）
2 导处来的页面 格式比较乱
JScript code
function exportExcel(atblData)
{
if(typeof(EXPORT_OBJECT)!= "object ")
{
document.body.insertAdjacentHTML( "afterBegin ", "<OBJECT style=’display:none’ classid=clsid:0002E510-0000-0000-C000-000000000046 id=EXPORT_OBJECT> </Object> "); }
with (EXPORT_OBJECT){
DataType = "HTMLData ";
HTMLData =atblData.outerHTML;
try{
ActiveSheet.Export( "C:\\sortTEL.xls ",0);
alert( ‘导出EXCEL文档完毕 ‘);
}
catch(e)
{
alert( ‘导出Excel表失败或您取消了操作！ ‘);
}
}
}
function AutomateExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i＜hang;i++)
{
for (j=0;j＜lie;j++)
{
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
上面两种也试过，都未通过，一调用 就报错
http://topic.csdn.net/u/20091203/09/5D3D2EBC-D9AC-440B-8B5A-FDB30A36E93B.html