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

翔子

用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＞