从网页导出数据

1 //传入一个table的id，将table的全部内容导出excel文件
 2 function AutomateExcel(objTable) 
 3 { 
 4     // Start Excel and get Application object. 
 5     var oXL = new ActiveXObject("Excel.Application"); 
 6     // Get a new workbook. 
 7     var oWB = oXL.Workbooks.Add(); 
 8     var oSheet = oWB.ActiveSheet; 
 9     var hang = objTable.rows.length; 
10 
11     var lie = objTable.rows(0).cells.length; 
12 
13     // Add table headers going cell by cell. 
14     for (var i=0;i<hang;i++) 
15     { 
16         for (var j=0;j<lie;j++) 
17         { 
18             oSheet.Cells(i+1,j+1).value = objTable.rows(i).cells(j).innerText; 
19         } 
20 
21     } 
22     oXL.Visible = true; 
23     oXL.UserControl = true; 
24 }