js随记-----生成excel文件

本文介绍了一种将网页表格数据导出为Excel文件的方法,包括直接拷贝表格至Excel及逐单元格读取两种方式,并提供了一个JavaScript实现示例。
 

<!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=gb2312"/>
    <title>WEB页面导出为EXCEL文档的方法</title>
</head>
<body>
<table id="tableExcel" width="100%" border="1" cellspacing="0"cellpadding="0">
    <tr>
        <td colspan="5" align="center">WEB页面导出为EXCEL文档的方法

</td>
    </tr>
    <tr>
        <td>列标题1</td>
        <td>列标题2</td>
        <td>列标题3</td>
        <td>列标题4</td>
        <td>列标题5</td>
    </tr>
    <tr>
        <td>aaa</td>
        <td>bbb</td>
        <td>ccc</td>
        <td>ddd</td>
        <td>eee</td>
    </tr>
    <tr>
        <td>AAA</td>
      <td>BBB</td>
        <td bgcolor="#66FF00">CCC</td>
        <td>DDD</td>
        <td>EEE</td>
    </tr>
    <tr>
        <td>FFF</td>
        <td>GGG</td>
      <td>HHH</td>
      <td bgcolor="#000099">III</td>
        <td bgcolor="#FF0000">JJJ</td>
    </tr>
</table>
<input type="button" onclick="javascript:method1('tableExcel');"value="第一种方法导入到EXCEL">
<input type="button" onclick="javascript:method2('tableExcel');"value="第二种方法导入到EXCEL">
<input type="button" onclick="javascript:getXlsFromTbl

('tableExcel',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 = "";
        //alert("getXlsFromTbl");
        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;
    //alert("getTblData is " + inWindow);
    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++) {
            //alert("j is " + j);
            for (var i = 0; i < curTbl.rows[j].cells.length; i++) {
                //alert("i is " + 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
) {
                        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";
    //alert(fileName);
    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>

### 如何在Excel生成指定方向的随机数据 #### 使用RAND和RANDBETWEEN函数生成数值型随机数据 为了生成数值类型的随机数据,可以使用`RAND()`或`RANDBETWEEN(bottom, top)`这两个内置函数。前者返回0到1之间的均匀分布浮点数;后者则允许设定上下限来获取整数范围内的随机值。 对于创建一维数组形式的随机序列(即单行或多列),只需在一个单元格输入相应公式并向下或向右拖动填充柄即可复制该公式至相邻位置[^1]。 ```excel =RAND() ' 生成介于0与1之间的小数 =RANDBETWEEN(1, 100) ' 生成1到100间的任意整数 ``` #### 利用INDEX-MATCH组合实现定向抽取 当涉及到按照一定规则筛选符合条件的数据项时,则可能需要用到更复杂的逻辑结构。比如通过结合`INDEX/MATCH`函数配合其他辅助条件判断语句如`IF`等,可以从现有表格里挑选满足特定标准的信息片段形成新的有序列表[^2]。 假设有一个包含姓名、年龄两字段的工作表A,现在希望基于此构造一份仅保留成年人群体的新清单B: | A | B | |--|--| | Name Age | Adult Names Only | | Alice 28 | Alice | | Bob 17 | | | Carol 34 | Carol | 此时可以在新工作表的目标区域内键入如下公式,并沿垂直方向拉伸以覆盖整个待处理区间: ```excel =IFERROR(INDEX($A$2:$A$10,MATCH(TRUE,$B$2:$B$10>=18,0)),"") ``` 这里采用的是错误捕捉机制(`IFERROR`)包裹住核心查询部分——先定位所有大于等于18岁的记录索引号(MATCH),再据此检索对应的名称字符串(INDEX)。 #### 构建自定义VBA宏程序完成复杂任务 如果需求更加个性化或者频繁重复执行相似操作的话,编写一段简单的Visual Basic for Applications (VBA) 宏代码不失为一种高效解决方案。下面给出了一段示范性的脚本,它能依据给定概率权重分配不同类别标签给选定区域内的每一个元素[^4]: ```vba Sub AssignRandomCategory() Dim rng As Range Set rng = Selection For Each cell In rng Dim randValue As Double randValue = Rnd() If randValue < 0.3 Then cell.Value = "Type A" ElseIf randValue >= 0.3 And randValue < 0.6 Then cell.Value = "Type B" Else cell.Value = "Type C" End If Next cell End Sub ``` 这段宏会遍历当前选中的单元格集合,并根据预设的概率比例为其赋予不同的分类标记。“Type A”, “Type B” 和 “Type C”的出现几率分别为30%,30%以及剩余的40%。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值