导出页面指定区域内容到Word/Excel

可以根据是否隐藏来实现导出功能,如果隐藏则不导出。
主要代码:
  [code=JScript]//指定页面区域“单元格”内容导入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++)
      {
        //在这判断,你的程序运行之后,可以查看源文件看是不是通过隐藏实现的,根据实际情况。
        if   (PrintA.rows(i).cells(j).style.display== ' ')
        {
        oSheet.Cells(i+1,j+1).value   =   PrintA.rows(i).cells(j).innerText;
        }
      }
    }
    oXL.Visible   =   true;
  }[/code]
测试用例(COPY之后保存为html文件即可运行):
[code=JScript]
<HTML>
<HEAD>
<title> WEB页面导出为EXCEL文档的方法   </title>
</HEAD>
<body>
<BR>
<table   id= "PrintA "   width= "100% "   border= "1 "   cellspacing= "0 "   cellpadding= "0 "   bgcolor= "#61FF13 ">
<TR   style= "text-align   :   center; ">
<TD   style= "display:none "> 单元格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>
<BR>
<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>
<br>
<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++)
      {
        if   (PrintA.rows(i).cells(j).style.display== ' ')
        {
        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>
</body>
</HTML>

[/code]
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值