超列框导出到Excel时写出“工作表表名、工作表标签颜色”

wh1234567

b0y 发表于 2025-3-17 12:44
行高我试了一下 没反应  就算行高可以  那和这个表明完全是2回事  你还是换其他excel支持库导出得方法   ...

<![if !supportTabStrip]><script language="JavaScript">
<!--
function fnUpdateTabs()
{
  if (parent.window.g_iIEVer>=4) {
   if (parent.document.readyState=="complete"
    && parent.frames['frTabs'].document.readyState=="complete")
   parent.fnSetActiveSheet(0);
  else
   window.setTimeout("fnUpdateTabs();",150);
}
}

if (window.name!="frSheet")
window.location.replace("../导出26089310.xls");
else
fnUpdateTabs();
//-->

这代码是啥意思？能不能启发一下

补充内容 (2025-3-17 13:22):
https://mbd.baidu.com/newspage/d ... sourceFrom=search_a

wh1234567

b0y 发表于 2025-3-17 12:44
行高我试了一下 没反应  就算行高可以  那和这个表明完全是2回事  你还是换其他excel支持库导出得方法   ...

var c_rgszSh=new Array(c_lTabs);
c_rgszSh[0] = "1";
c_rgszSh[1] = "Sheet1";
c_rgszSh[2] = "Sheet2";

怎么弄？

wh1234567

b0y 发表于 2025-3-17 10:20
这个导出 其实就是html得表格  excel又能读取这种格式
但是定义表名 就不是这个方法能定义的了   ...

function exportTableToExcel(tableId, sheetName, sheetColor) {
  var table = document.getElementById(tableId);
  var excelApp = new ActiveXObject("Excel.Application");
  var workbook = excelApp.Workbooks.Add();
  var worksheet = workbook.Sheets(1);

  // 设置工作表标签名称
  worksheet.Name = sheetName;

  // 遍历表格行和列，将数据复制到Excel中
  for (var i = 0, row; row = table.rows; i++) {
    for (var j = 0, col; col = row.cells[j]; j++) {
      worksheet.Cells(i + 1, j + 1).Value = col.innerText;
    }
  }

  // 设置工作表标签颜色（这里使用RGB颜色代码）
  // 注意：ActiveXObject没有直接设置工作表标签颜色的方法，这里是一个简化的示例
  // 实际上，你可能需要借助Excel的VBA或其他方法来设置标签颜色
  // 下面的代码不会直接起作用，但它展示了如何设置单元格颜色的方法
  // worksheet.Range("A1").Interior.Color = RGB(255, 0, 0); // 将A1单元格背景设置为红色

  // 由于无法直接设置工作表标签颜色，这里只是演示如何保存Excel文件
  var filePath = "exported_" + sheetName + ".xlsx";
  workbook.SaveAs(filePath);
  workbook.Close();
  excelApp.Quit();

  // 可选：提示用户保存成功
  alert("Excel文件已保存为：" + filePath);
}

// 调用函数导出表格
exportTableToExcel("tableToExport", "我的工作表", "#FFFFFF"); // 注意：颜色参数在这里不起作用，仅作为示例

wh1234567

哪位老师能给个正确答案？

wh1234567

samll88 发表于 2025-3-17 08:48
你这样写不对,我帮你改了下,颜色你自己研究下,因为我也不会

https://baijiahao.baidu.com/s?id ... r=spider&for=pc

wh1234567

期待懂网页制作的老师帮助一下吧，

samll88

wh1234567 发表于 2025-3-17 22:18
https://baijiahao.baidu.com/s?id=1776572888641636503&wfr=spider&for=pc

这个同学,首先你要明白保存和控制是不同的.你写的只是把Excel的命令保存到单元,所以不是在易语言上下功夫,而是学习Excel.
比如这句:
=HYPERLINK("https://www.baidu.com","百du官网")
你在Excel的随便单元格复制进去,是不是变成百du的超链接,
但这是Excel的命令,和易语言没有一毛钱关系,易语言只是把这句话保存到了Excel里
你把Excel学塾了,自然这些命令也熟了,照着这些格式用易语言保存到Excel里,也是可以的.至少比单纯在Excel上操作快点.
易语言有自己的组件命令,有自己的体系,在易语言论坛问Excel的问题是没有结果的.

wh1234567

samll88 发表于 2025-3-18 07:35
这个同学,首先你要明白保存和控制是不同的.你写的只是把Excel的命令保存到单元,所以不是在易语言上下功夫 ...

明白您的意思，那么给Excel里写一段什么代码才能实现自定义工作表名称和颜色呢？

TIANL

看了，是可以通过你原本的思路完成，需要在开头加几行有关excel读取文件时的xml标签参数，让excel读取文件时根据标签参数定义worksheet属性，不过excel版本不同，参数格式可能不同，打开时看到的内容也可能有差别，可能需要针对每个版本的excel做适配

TIANL

TIANL 发表于 2025-3-19 03:27
看了，是可以通过你原本的思路完成，需要在开头加几行有关excel读取文件时的xml标签参数，让excel读取文件 ...

或者说2013版本之前的可能用不了，只能2013版本后的excel才能打开