Print series-export a web page to an Excel document

This method can only export the page tables of general rules. It is not applicable to complicated formats such as merging cells. You must consider using other components.

1. <Title> export a browser table to excel </title>
3. <Input type = "button" name = "out_word1" onclick = "automateexcel ()"
   
4. Value = "export to excel" class = "notprint">
7. <Table id = "data" width = "200" border = "1">
8. <Tr>
9. <TD> 11 </TD>
10. <TD> 11 </TD>
11. </Tr>
12. <Tr>
13. <TD> 22 </TD>
14. <TD> 22 </TD>
15. </Tr>
16. <Tr>
17. <TD> 33 </TD>
18. <TD> 33 </TD>
19. </Tr>
20. <Tr>
21. <TD> 44 </TD>
22. <TD> 44 </TD>
23. </Tr>
24. </Table>
27. <Script language = "JavaScript">
28. Function automateexcel ()
29. {
30. // Start Excel and get application object.
31. VaR oxl = new activexobject ("Excel. application ");
32. // Get a new workbook.
33. VaR owb = oxl. workbooks. Add ();
34. VaR osheet = owb. activesheet;
35. VaR table = Document. All. Data;
36. VaR hang = table. Rows. length;
38. VaR lie = table. Rows (0). cells. length;
40. // Add Table headers going cell by cell.
41. For (I = 0; I
42. {
43. For (j = 0; j <lie; j ++)
44. {
45. Osheet. cells (I + 1, J + 1). value = table. Rows (I). cells (j). innertext;
46. }
48. }
49. Oxl. Visible = true;
50. Oxl. usercontrol = true;
51. }
52. </SCRIPT>