盗墓笔记,辰东完美世界有声小说,欢乐颂第三季

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

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

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

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

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

<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)出頁面指定區(qū)域內(nèi)容到Word" type="button" /> <input onclick="javascript:AllAreaExcel();" value="導(dǎo)出頁面指定區(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">
//指定頁面區(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;
}
//指定頁面區(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;
}
//指定頁面區(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下無效。

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

具體配置方法如下:

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

如下圖操作提示: