<script language="javascript" type="text/javascript">
function ExportExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var oTable = document.getElementById("dataTable");
for(var i=0; i<oTable.rows.length; i++)
{
for(var j=0; j<oTable.rows[i].cells.length; j++)
{
oSheet.Cells(i+1,j+1).Value = oTable.rows[i].cells[j].innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
function ExportExcelWithFormat()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var oTable = document.getElementById("dataTable");
var sel=document.body.createTextRange();
sel.moveToElementText(oTable);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
oXL.UserControl = true;
}
</script>
--- table
<div>
<table width="500" border="0" align="center">
<tr>
<td align="center"><input type="button" οnclick="ExportExcel()" value="导出纯文本数据到Excel" /> </td>
<td align="center"><input type="button" οnclick="ExportExcelWithFormat()" value="导出带格式的数据到Excel" /> </td>
</tr>
</table>
<asp:Button runat="server" ID="btnexprot" Text="导出" οnclick="btnexprot_Click" />
<asp:Literal runat="server" ID="lttable" />
<table id="dataTable" width="200 " border="1 ">
<tr>
<td>
我是中国人
</td>
<td>
11
</td>
</tr>
<tr>
<td>
22
</td>
<td>
22
</td>
</tr>
<tr>
<td>
33
</td>
<td>
33
</td>
</tr>
<tr>
<td>
44
</td>
<td>
44
</td>
</tr>
</table>
</div>
automation服务器不能创建对象
"本地Intranet"内“对没有标记为安全的ActiveX控件进行初始化和脚本运行”这一项设置为“启用”就可以了