日韩av黄I国产麻豆传媒I国产91av视频在线观看I日韩一区二区三区在线看I美女国产在线I麻豆视频国产在线观看I成人黄色短片

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 >

(转)javascript实现导出Word、Excel

發布時間:2024/4/15 39 豆豆
生活随笔 收集整理的這篇文章主要介紹了 (转)javascript实现导出Word、Excel 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

轉載地址:http://www.zhenhua.org/article.asp?id=568


Javascript 瀏覽器客戶端導出指定區域到Word、Excel <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>
<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/>
<input type="button" οnclick="javascript:AllAreaWord();" value="導出頁面指定區域內容到Word">
<input type="button" οnclick="javascript:AllAreaExcel();" value="導出頁面指定區域內容到Excel">
<input type="button" οnclick="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>



轉載于:https://www.cnblogs.com/jybuding/archive/2009/07/16/1524802.html

總結

以上是生活随笔為你收集整理的(转)javascript实现导出Word、Excel的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。