设为首页收藏本站

Discuz! Board

 找回密码
 注-册

QQ登录

只需一步,快速开始

搜索
查看: 102855|回复: 0

[js]用Excel的Application组件在客户端导出到Excel或Word

[复制链接]
发表于 2006-8-11 18:29:11 | 显示全部楼层 |阅读模式
用Excel的Application组件在客户端导出到Excel或Word   

  注意:两个函数中的“data“是网页中要导出的table的   id   

<input   type="hidden"   name="out_word"   onclick="vbscript:buildDoc"   value="导出到word"   class="notPrint">   
<input   type="hidden"   name="out_excel"   onclick="AutomateExcel();"   value="导出到excel"   class="notPrint">     

  导出到Excel代码   

<SCRIPT   LANGUAGE="javascript">   
<!--   
function   AutomateExcel()   
{   
//   Start   Excel   and   get   Application   object.   
var   oXL   =   new   ActiveXObject("Excel.Application");   
//   Get   a   new   workbook.   
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;   
}   
//-->   
</SCRIPT>
您需要登录后才可以回帖 登录 | 注-册

本版积分规则

小黑屋|手机版|Archiver|数码鹭岛 ( 闽ICP备05008334号 )  

counter

GMT+8, 2018-10-19 08:23 , Processed in 0.138640 second(s), 22 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表