a亚洲a在线观看,日产国产欧美一区二区三区,亚精品中文字幕久久久久人妻村妇

在唐山長城網絡時如何實現一鍵導出WORD格式呢

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

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

再此唐山網絡公司長城網絡推薦一個簡單的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="導出頁面指定區域內容到Word" type="button" /> <input onclick="javascript:AllAreaExcel();" value="導出頁面指定區域內容到Excel" type="button" /> <input onclick="javascript:CellAreaExcel();" value="導出表單單元格內容到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">
//指定頁面區域內容導入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>

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

在實現這個JS導出WORD 的時候需要配置一下Internet Explorer的權限！

具體配置方法如下:

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

如下圖操作提示: