91不卡在线精品国产,日本中文字幕免费高清视频,亚洲欧美精品一区

在唐山長城網(wǎng)絡時如何實現(xiàn)一鍵導出WORD格式呢

時間：2012/9/8 10:20:01 作者：tsccwl 人氣：標簽：

在唐山網(wǎng)站制作過程中有客戶經(jīng)常會要求后臺導出WORD,excel文檔而進行打印，編輯，這里網(wǎng)站制作人員感覺到無從下手

再此唐山網(wǎng)絡公司長城網(wǎng)絡推薦一個簡單的JS導出WORD，exceL的方法！

具體實施過程和代碼如下：

<table id="PrintA" border="1" cellspacing="0" cellpadding="0" width="100%" bgcolor="#61ff13">
<tbody>
<tr style="text-align:center;">
<td>單元格A</td>
<td>單元格A</td>
<td>單元格A</td>
<td>單元格A</td>
</tr>
<tr>
<td style="text-align:center;" colspan="4"><span style="font-family:Verdana;color:blue;">單元格合并行A</span></td>
</tr>
</tbody>
</table>
<table id="PrintB" border="1" cellspacing="0" cellpadding="0" width="100%">
<tbody>
<tr style="text-align:center;">
<td>單元格B</td>
<td>單元格B</td>
<td>單元格B</td>
<td>單元格B</td>
</tr>
<tr>
<td style="text-align:center;" colspan="4">單元格合并行B</td>
</tr>
</tbody>
</table>


<input onclick="javascript:AllAreaWord();" value="導出頁面指定區(qū)域內(nèi)容到Word" type="button" /> <input onclick="javascript:AllAreaExcel();" value="導出頁面指定區(qū)域內(nèi)容到Excel" type="button" /> <input onclick="javascript:CellAreaExcel();" value="導出表單單元格內(nèi)容到Excel" type="button" /> <table class="ke-zeroborder" border="0" cellspacing="0" cellpadding="0" width="100%" height="232">
<tbody>
<tr>
<td valign="top" width="24%"> </td>
</tr>
<tr>
<td valign="top" width="76%"> </td>
</tr>
</tbody>
</table>
<script language="javascript">
//指定頁面區(qū)域內(nèi)容導入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;
}
//指定頁面區(qū)域“單元格”內(nèi)容導入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;
}
//指定頁面區(qū)域內(nèi)容導入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>

提示：復制和保存代碼功能在FF下無效。

在實現(xiàn)這個JS導出WORD 的時候需要配置一下Internet Explorer的權(quán)限！

具體配置方法如下:

打開Internet Explorer “工具”菜單欄中的“選項”一欄，單擊“安全”欄中的“自定義級別”選項卡，將“對沒有標記為安全的activex控件進行初始化和腳本運行”設(shè)置成“啟用”；

如下圖操作提示:

當然在導出必須要求WORD為表格時：在網(wǎng)頁里必須設(shè)置表格的邊框為1!

本文來源：唐山長城網(wǎng)絡唐山網(wǎng)站建設(shè) www.0769djj.com 轉(zhuǎn)載請注明出處！謝謝！

上一篇：唐山做網(wǎng)站過程中如何通過JS隱藏多個DIV層呢！
下一篇：百度：url提交通道升級加快新站url收錄

本站首頁

關(guān)于我們

新聞中心

網(wǎng)站報價

成功案例

400電話

聯(lián)系方式