复杂表格拷贝到EXCEL中

最新推荐文章于 2024-07-14 16:32:48 发布
最新推荐文章于 2024-07-14 16:32:48 发布
阅读量593 收藏
点赞数
文章标签： excel javascript function null button border
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zycheer/article/details/3778785
版权

 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
    <title>test</title>
</head>
<body>
<table id="test" width="100%" border="1" cellspacing="0" cellpadding="0">
   <tr>
  <td colspan="2">tit</td>
 </tr>
 <tr>
  <td>a</td>
  <td rowspan="2">
  <table border="1" width="100%" id="table1">
   <tr>
    <td>1</td>
    <td>1</td>
   </tr>
   <tr>
    <td>a</td>
    <td>a</td>
   </tr>
   <tr>
    <td>b</td>
    <td>a</td>
   </tr>
   <tr>
    <td>1</td>
    <td>1</td>
   </tr>
   <tr>
    <td>c</td>
    <td>a</td>
   </tr>
   <tr>
    <td>d</td>
    <td>a</td>
   </tr>
  </table>
  </td>
 </tr>
 <tr>
  <td>a</td>
 </tr>
</table>
<input type="button" οnclick="javascript:method1('test');" value="下载到EXCEL">
<input type="button" οnclick="javascript:method2('test');" value="下载到EXCEL">
<input type="button" οnclick="javascript:getXlsFromTbl('test',null);" value="下载到EXCEL">

<SCRIPT LANGUAGE="javascript">
function method1(tableid)//整个表格拷贝到EXCEL中
{
    var curTbl = document.getElementById(tableid);
    var oXL = new ActiveXObject("Excel.Application");//创建AX对象excel
    var oWB = oXL.Workbooks.Add();//获取workbook对象
    var oSheet = oWB.ActiveSheet;//激活当前sheet
    var sel = document.body.createTextRange();
    sel.moveToElementText(curTbl);//把表格中的内容移到TextRange中
    sel.select();//全选TextRange中内容
    sel.execCommand("Copy");//复制TextRange中内容
    oSheet.Paste();//粘贴到活动的EXCEL中
    oXL.Visible = true;//设置excel可见属性
}
function method2(tableid) //读取表格中每个单元到EXCEL中
{
    var curTbl = document.getElementById(tableid);
    var oXL = new ActiveXObject("Excel.Application");//创建AX对象excel
    var oWB = oXL.Workbooks.Add();//获取workbook对象
    var oSheet = oWB.ActiveSheet;//激活当前sheet
    var Lenr = curTbl.rows.length;//取得表格行数
    for (i = 0; i < Lenr; i++)
    {
        var Lenc = curTbl.rows(i).cells.length;//取得每行的列数
        for (j = 0; j < Lenc; j++)
        {
            oSheet.Cells(i + 1, j + 1).value = curTbl.rows(i).cells(j).innerText;//赋值
        }
    }
    oXL.Visible = true;
    //设置excel可见属性
}
function getXlsFromTbl(inTblId, inWindow)
{
    try
    {
        var allStr = "";
        var curStr = "";
        if (inTblId != null && inTblId != "" && inTblId != "null")
        {
         curStr = getTblData(inTblId, inWindow);
        }
        if (curStr != null)
        {
            allStr += curStr;
        }
        else
        {
            alert("你要导出的表不存在！");
            return;
        }
        var fileName = getExcelFileName();
        doFileExport(fileName, allStr);
    }
    catch(e)
    {
       alert("导出发生异常:" + e.name + "->" + e.description + "!");
    }
}
function getTblData(inTbl, inWindow)
{
    var rows = 0;
    var tblDocument = document;
    if (!!inWindow && inWindow != "")
    {
        if (!document.all(inWindow))return null;
        else tblDocument = eval(inWindow).document;
    }
    var curTbl = tblDocument.getElementById(inTbl);
    var outStr = "";
    if (curTbl != null)
    {
        for (var j = 0; j < curTbl.rows.length; j++)
        {
            for (var i = 0; i < curTbl.rows[j].cells.length; i++)
            {
             if (i == 0 && rows > 0)
             {
              outStr += " /t";
                 rows -= 1;
              }
              outStr += curTbl.rows[j].cells[i].innerText + "/t";
    if (curTbl.rows[j].cells[i].colSpan > 1)
    {
               for (var k = 0; k < curTbl.rows[j].cells[i].colSpan - 1; k++)
               {
      outStr += " /t";
     }
             }
              if (i == 0)
              {
               if (rows == 0 && curTbl.rows[j].cells[i].rowSpan > 1)
               {
                   rows = curTbl.rows[j].cells[i].rowSpan - 1;
                 }
              }
            }
            outStr += "/r/n";
        }
    }
    else
    {
        outStr = null;
        alert(inTbl + "不存在!");
    }
    return outStr;
}

function getExcelFileName()
{
    var d = new Date();
    var curYear = d.getYear();
    var curMonth = "" + (d.getMonth() + 1);
    var curDate = "" + d.getDate();
    var curHour = "" + d.getHours();
    var curMinute = "" + d.getMinutes();
    var curSecond = "" + d.getSeconds();
    if (curMonth.length == 1)curMonth = "0" + curMonth;
    if (curDate.length == 1)curDate = "0" + curDate;
    if (curHour.length == 1)curHour = "0" + curHour;
    if (curMinute.length == 1)curMinute = "0" + curMinute;
    if (curSecond.length == 1)curSecond = "0" + curSecond;
    var fileName = "leo_zhang" + "_" + curYear + curMonth + curDate + "_"+ curHour + curMinute + curSecond + ".csv";
    return fileName;
}
function doFileExport(inName, inStr)
{
    var xlsWin = null;
    if (!!document.all("glbHideFrm"))
    {
        xlsWin = glbHideFrm;
    }
    else
    {
        var width = 6;
        var height = 4;
        var openPara = "left=" + (window.screen.width / 2 - width / 2)
                + ",top=" + (window.screen.height / 2 - height / 2)
                + ",scrollbars=no,width=" + width + ",height=" + height;
        xlsWin = window.open("", "_blank", openPara);
    }
    xlsWin.document.write(inStr);
    xlsWin.document.close();
    xlsWin.document.execCommand('Saveas', true, inName);
    xlsWin.close();
}
</SCRIPT>
</body>
</html>

zycheer
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Vue实现复制excel表格内容粘贴至网页
weixin_48174100的博客
06-22 4809
Vue实现复制excel表格内容粘贴至网页 有一个项目要求复制excel表格内容粘贴至网页表格，并且自动生成格式（合并单元格等） （别问为什么不直接上传excel表格，用户不喜欢。。。） 最后决定的做法是根据页面生成一个excel模板，如下： 上图模板前三行（我这里项目要求前三行合并）对应下图 粘贴后效果如下： 大概思路就是 1.根据项目需求在页面下载excel表格模板（用处：用户填写后复制内容并粘贴到网页端） 2.前端部分用handsontable等表格组件匹配填写数据 3.renderer下表格确保
html页面获取粘贴到表格,Html table 实现Excel多格粘贴
weixin_42502503的博客
06-03 907
电商网站的后台总少不了各种繁杂数据的录入，旁边的运营妹子录完第138条商品的时候，终于忍不住转身吼到：为什么后台的录入表不能像Excel那样多行粘贴！！！于是，就有了这片文章～实现的就是这样的一个效果，从Excel或Number复制好多行数据后，直接在table起始单元格按下C+V，表格数据立马就齐刷刷站好位了！强迫症表示看着好爽感！多单元格复制展示.gif原理：绑定表格的粘贴事件，取消默认事件，...
kafka和rabbitmq对比(超详细，从实战维度比较)
热门推荐
巨魔战将
10-21 10万+
kafka介绍 kafka是apache开源的消息队列顶级项目之一，在大数据场景下使用较多，由linkedin开源，目前社区活跃，全球较多组织开始使用kafka来进行数据交换。 rabbitmq介绍 RabbitMQ是流行的开源消息队列系统，用erlang语言开发。RabbitMQ是AMQP（高级消息队列协议）的标准实现。 kafka和rabbitmq全面对比分析 对比项 kafka r...
【LaTeX】复杂表格的制作：Excel2LaTeX及细节调整
Mr.zwX
02-13 1万+
刚开始用LaTeX写论文，遇到的第一道坎就是绘制表格，较小的普通表格可以通过简单的语法实现，但是较大的复杂的表格却让我无从下手。 Excel2LaTeX插件 这里介绍一种我用到非常顺手的工具：Excel2LaTeX插件，下载地址：传送门 下载好之后，在excel中显示加载项，并将Excel2LaTeX.xla文件导入到加载项中，重新启动excel可以看到如下选项： 在Excel绘制表格并生成LaTeX代码 现在就可以开始在excel中绘制想要的表格形式了，举个例子如下（多数据集、多模型、多指标、包含粗边
java 生成复杂的excel_JAVA用freemarker生成复杂Excel。（freemarker）
weixin_34675606的博客
02-25 742
在生成Excel的时候，大多时候都是使用poi，jxl等进行的，但是对于复杂的Excel来说，这个工作量是非常的大的，而且，对于我这么懒的人来说，这是相当痛苦的一件事情，所以，我不得不找找有没有简单一点的办法来搞定这个事情。我想到了上次用freemarker成功生成了Word文档。我就想可不可以也生成Excel呢？然后我就尝试。结果真行，不过，和生成Word文档有一些差别，好了，不废话了，上图。上...
一些latex中表格的技巧总结
weixin_58270210的博客
05-01 856
如果表格非常简单，可以自己手动在latex中敲，但是如果比较复杂，建议先在excel中写好，然后使用一些工具生成latex代码，再粘贴到tex中。注：下面这两个可以结合使用，尤其是在调整表格细节的时候，可以参考自动生成的某些格式的命令。
Java对excel表格操作
天王盖地虎
01-03 1万+
一、介绍 当前B/S模式已成为应用开发的主流，而在企业办公系统中，常常有客户这样子要求：你要把我们的报表直接用Excel打开(电信系统、银行系统)。或者是：我们已经习惯用Excel打印。这样在我们实际的开发中，很多时候需要实现导入、导出Excel的应用。目前，比较常用的实现Java导入、导出Excel的技术有两种Jakarta POI和Java Excel下面我就分别讲解一下如何使用这两个技术实现
python从word中提取信息导入excel_使用python模块win32com提取word表格到excel
weixin_39642761的博客
11-30 598
由于工作的要求，需要将word文档里的表格提取出来放到excel里面。表格结构比较复杂，且一篇word里面有多个表格。对于一个word文档来说提取很简单，只要选中表格，然后复制黏贴到excel里面就可以了。但是word文档有上百个，手工操作不现实，最直接的想法就是使用VBA编程实现批量操作。可是VBA又不能直接嵌入已有的python项目，所幸python是有直接操作office的库的，如：pyth...
DataGridView拷贝数据到Excel
08-01
有时，用户可能希望将这些数据显示在Excel中，以便进行更复杂的数据处理或分析。通过使用Microsoft.Office.Interop.Excel命名空间，我们可以创建一个Excel应用程序实例，并将DataGridView中的数据复制过去。 描述：...
将Word表格转换成Excel表格的方法
08-17
接下来，执行“编辑”菜单的“复制”命令，将 Word 表格拷贝到剪贴板中。这一步骤的目的是为了将 Word 表格的内容复制到剪贴板中，以便后续的操作。 然后，启动 Excel 软件，然后打开需要转换的工作簿，并将光标移...
delphi对Excel拷贝及粘贴
08-04
2. **拷贝操作**：在Excel中，拷贝数据通常涉及到选择单元格或区域，然后调用`Copy`方法。在Delphi中，可以通过`Range`对象来实现。例如，如果你想要拷贝A1到B2的矩形区域，可以这样做： ```delphi Worksheet.Range...
jxl操作excel表格
11-15
**拷贝Excel工作簿** 拷贝工作簿主要是创建一个新的`Workbook`对象，并将原工作簿的Sheet复制过来。`jxl.write`包中的`WritableWorkbook`类用于创建可写的工作簿，而`WritableSheet`则代表可写的Sheet。你可以通过`...
Excel表格转换成xml文件格式 C++源码
02-01
在IT行业中，数据交换和存储经常需要不同的文件格式相互转换，比如从常见的Excel表格转换成XML文件。XML（Extensible Markup Language）是一种用于标记数据的语言，具有良好的结构化和可扩展性，适合于数据交换、...
jsp页面表格数据导出到excel
Gavin的专栏
08-25 1万+
在程序猿的日常工作中经常会遇到这样的问题，如何将jsp页面表格中的数据导出到excel中？ 我所知道的第一种方法是 function method1(tableid) {//整个表格拷贝到EXCEL中 var curTbl = document.getElementByIdx_x(tableid); var oXL = new ActiveXObject("Exc
Python面试题：编写一个 Python 脚本来读取 Excel 文件
bigorsmallorlarge的专栏
07-10 840
要在 Python 中读取 Excel 文件，可以使用pandas库，这个库提供了强大的数据处理和分析功能，并且支持读取 Excel 文件。你还需要openpyxl库来支持读取.xlsx格式的 Excel 文件。
SpringBoot+Vue实现简单的文件上传（Excel篇）
最新发布
weixin_45732391的博客
07-14 245
只能上传xls文件且大小限制为2M，选择文件后自动上传。
Lumos学习王佩丰Excel第四讲：排序与选择
Sunshine_XX的博客
07-10 369
自定义排序演示：工资条拆分的演示：如果遇到很长的表，标题只存在于顶端，打印出来观感不好，可以这样做：有些版本的excel复制筛选数据容易把背后隐藏的所有数据都复制上去，这时可选中定位条件的“可见单元格”选项，复制粘贴即可。并排表示且，错排表示或。ctrl+shift+↓+→全选，演示说明：回头学原理，先记住一句话，要想筛选对，条件表头不要对。
vba 拷贝excel中的图表到ppt中
05-24
以下是将 Excel 中的图表复制到 PowerPoint 中的 VBA 代码示例： ```vba Sub CopyChartToPPT() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint....

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值