HTML_table转换Excel文档

最新推荐文章于 2025-06-15 13:59:24 发布

coopkkk

最新推荐文章于 2025-06-15 13:59:24 发布

阅读量451

点赞数

分类专栏： JavaScript 文章标签： HTML Excel Cache F# J#

JavaScript 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一种实用的方法，能够将网页上的表格数据直接复制并格式化导出到Excel文件中，便于进一步的数据处理和分析。此方法通过简单的JavaScript代码实现，可确保导出的表格具有清晰的边框，并保持原始网页数据的完整性和格式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

感觉是比较不错的东西，和大家一起分享,可以直接将代码放在记事本中直接使用。比较方便哦

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GBK">
<meta http-equiv="pragma" content="no-cache">
<script language="jscript">
function replaceHtml(replacedStr,repStr,endStr){
    var replacedStrF = "";
    var replacedStrB = "";
    var repStrIndex = replacedStr.indexOf(repStr);
    while(repStrIndex != -1){
        replacedStrF = replacedStr.substring(0,repStrIndex);
        replacedStrB = replacedStr.substring(repStrIndex,replacedStr.length);
        replacedStrB = replacedStrB.substring(replacedStrB.indexOf(endStr)+1,replacedStrB.length);
        replacedStr = replacedStrF + replacedStrB;
        repStrIndex = replacedStr.indexOf(repStr);
    }
    return replacedStr;
}
//elTalbeOut 这个为导出内容的外层表格，主要是设置border之类的样式，elDiv则是整个导出的html部分
function htmlToExcel(elTableOut,elDiv){
    try{
        //设置导出前的数据，为导出后返回格式而设置
        var elDivStrBak = elDiv.innerHTML;
        //设置table的border=1，这样到excel中就有表格线 ps:感谢双面提醒
        elTableOut.border=1;
        //过滤elDiv内容
        var elDivStr = elDiv.innerHTML;
        elDivStr = replaceHtml(elDivStr,"<A",">");
        elDivStr = replaceHtml(elDivStr,"</A",">");
        elDiv.innerHTML=elDivStr;

        var oRangeRef = document.body.createTextRange();
        oRangeRef.moveToElementText( elDiv );
        oRangeRef.execCommand("Copy");

        //返回格式变换以前的内容
        elDiv.innerHTML = elDivStrBak;
        //内容数据可能很大，所以赋空
        elDivStrBak = "";
        elDivStr = "";

        var oXL = new ActiveXObject("Excel.Application")
        var oWB = oXL.Workbooks.Add ;
        var oSheet = oWB.ActiveSheet ;
        oSheet.Paste();
        oSheet.Cells.NumberFormatLocal = "@";
        oSheet.Columns("D:D").Select
        oXL.Selection.ColumnWidth = 20
        oXL.Visible = true;
        oSheet = null;
        oWB = null;
        appExcel = null;
    }catch(e){
        alert(e.description)
    }
}
</script>
<title></title></head>

<body leftmargin="0" topmargin="0">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="40" align="center" valign="middle"><INPUT type="button" value="导出" id="dcExcel" onClick="htmlToExcel(document.getElementById('elTableOut'),document.getElementById('elDiv'));"></td>
</tr>

</table>

<div id="elDiv">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#000000" bgcolor="#000000" id="elTableOut">
<tr>
    <td height="40" align="center" valign="middle" colspan="12" bgcolor="#FFFFFF"><strong>状况汇总表</strong></td>
</tr>
<tr>
    <td width="6%" rowspan="2" align="center" bgcolor="#FFFFFF">序号</td>
    <td width="20%" rowspan="2" align="center" bgcolor="#FFFFFF">a</td>
    <td width="7%" rowspan="2" align="center" bgcolor="#FFFFFF">b</td>
    <td width="7%" rowspan="2" align="center" bgcolor="#FFFFFF">c</td>
    <td width="7%" rowspan="2" align="center" bgcolor="#FFFFFF">d</td>
    <td width="7%" rowspan="2" align="center" bgcolor="#FFFFFF">e</td>
    <td width="7%" rowspan="2" align="center" bgcolor="#FFFFFF">f</td>
    <td width="7%" rowspan="2" align="center" bgcolor="#FFFFFF">g</td>
    <td height="25" colspan="4" align="center" bgcolor="#FFFFFF">h</td>
</tr>
<tr>
    <td width="7%" height="25" align="center" bgcolor="#FFFFFF">i</td>
    <td width="7%" align="center" bgcolor="#FFFFFF">j</td>
    <td width="7%" align="center" bgcolor="#FFFFFF">k</td>
    <td width="7%" align="center" bgcolor="#FFFFFF">l</td>
</tr>
</table>
</div>

</body>
</html>