這篇文章主要介紹了JavaScript將Web頁面內容導出到Word及Excel的方法,涉及javascript操作ActiveXObject控件的使用技巧,具有一定參考借鑒價值,需要的朋友可以參考下
本文實例講述了JavaScript將Web頁面內容導出到Word及Excel的方法。分享給大家供大家參考。具體實現方法如下：
? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 <HTML> <HEAD> <title>WEB頁面導出為EXCEL文檔的方法 </title> </HEAD> <body> <BR> <table id = "PrintA" width="100%" border="1" cellspacing="0" cellpadding="0" bgcolor = "#61FF13"> <TR style="text-align : center;"> <TD>單元格A</TD> <TD>單元格A</TD> <TD>單元格A</TD> <TD>單元格A</TD> </TR> <TR> <TD colSpan=4 style="text-align : center;"> <font color="BLUE" face="Verdana">單元格合並行A</FONT> </TD> </TR> </TABLE> <BR> <table id="PrintB" width="100%" border="1" cellspacing="0" cellpadding="0"> <TR style="text-align : center;"> <TD>單元格B</TD> <TD>單元格B</TD> <TD>單元格B</TD> <TD>單元格B</TD> </TR> <TR> <TD colSpan=4 style="text-align : center;">單元格合並行B</TD> </TR> </TABLE> <br><br><br> <input type="button" onclick="javascript:AllAreaWord();" value="導出頁面指定區域內容到Word"> <input type="button" onclick="javascript:AllAreaExcel();" value="導出頁面指定區域內容到Excel"> <input type="button" onclick="javascript:CellAreaExcel();" value="導出表單單元格內容到Excel"> <SCRIPT LANGUAGE="javascript"> //指定頁面區域內容導入Excel function AllAreaExcel() { var oXL = new ActiveXObject("Excel.Application"); var oWB = oXL.Workbooks.Add(); var oSheet = oWB.ActiveSheet; var sel=document.body.createTextRange(); sel.moveToElementText(PrintA); sel.select(); sel.execCommand("Copy"); oSheet.Paste(); oXL.Visible = true; } //指定頁面區域“單元格”內容導入Excel function CellAreaExcel() { var oXL = new ActiveXObject("Excel.Application"); var oWB = oXL.Workbooks.Add(); var oSheet = oWB.ActiveSheet; var Lenr = PrintA.rows.length; for (i=0;i<Lenr;i++) { var Lenc = PrintA.rows(i).cells.length; for (j=0;j<Lenc;j++) { oSheet.Cells(i+1,j+1).value = PrintA.rows(i).cells(j).innerText; } } oXL.Visible = true; } //指定頁面區域內容導入Word function AllAreaWord() { var oWD = new ActiveXObject("Word.Application"); var oDC = oWD.Documents.Add("",0,1); var oRange =oDC.Range(0,1); var sel = document.body.createTextRange(); sel.moveToElementText(PrintA); sel.select(); sel.execCommand("Copy"); oRange.Paste(); oWD.Application.Visible = true; //window.close(); } </SCRIPT> </body> </html>希望本文所述對大家的javascript程序設計有所幫助。