久草视频免费在线,亚洲精品成人A片无码网站,亚洲最大五码专区av

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

時(shí)間：2012/9/8 10:20:01 作者：tsccwl 人氣：標(biāo)簽：

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

再此唐山網(wǎng)絡(luò)公司長(zhǎng)城網(wǎng)絡(luò)推薦一個(gè)簡(jiǎn)單的JS導(dǎo)出WORD，exceL的方法！

具體實(shí)施過(guò)程和代碼如下：

<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="導(dǎo)出頁(yè)面指定區(qū)域內(nèi)容到Word" type="button" /> <input onclick="javascript:AllAreaExcel();" value="導(dǎo)出頁(yè)面指定區(qū)域內(nèi)容到Excel" type="button" /> <input onclick="javascript:CellAreaExcel();" value="導(dǎo)出表單單元格內(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">
//指定頁(yè)面區(qū)域內(nèi)容導(dǎo)入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;
}
//指定頁(yè)面區(qū)域“單元格”內(nèi)容導(dǎo)入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;
}
//指定頁(yè)面區(qū)域內(nèi)容導(dǎo)入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>

提示：復(fù)制和保存代碼功能在FF下無(wú)效。

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

具體配置方法如下:

打開(kāi)Internet Explorer “工具”菜單欄中的“選項(xiàng)”一欄，單擊“安全”欄中的“自定義級(jí)別”選項(xiàng)卡，將“對(duì)沒(méi)有標(biāo)記為安全的activex控件進(jìn)行初始化和腳本運(yùn)行”設(shè)置成“啟用”；

如下圖操作提示:

當(dāng)然在導(dǎo)出必須要求WORD為表格時(shí)：在網(wǎng)頁(yè)里必須設(shè)置表格的邊框?yàn)?!

本文來(lái)源：唐山長(zhǎng)城網(wǎng)絡(luò) 唐山網(wǎng)站建設(shè) hello-bees.cn 轉(zhuǎn)載請(qǐng)注明出處！謝謝！

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

本站首頁(yè)

關(guān)于我們

新聞中心

網(wǎng)站報(bào)價(jià)

成功案例

400電話

聯(lián)系方式