易语言超级列表框如何导出多个工作表

365673166 · 发表于 2021-5-31 16:51:23

如何每次导出添加一个新的工作表写入导出的内容

补充内容 (2021-6-1 08:20):
.版本 2
.支持库 eExcel2000
.支持库 iext

.如果真 (目录_是否存在 (取运行目录 () ＋ “\名单”) ＝假)
目录_创建 (取运行目录 () ＋ “\名单”)
.如果真结束
EXCEL文件名＝取运行目录 () ＋ “\名单\” ＋名＋ “  ” ＋人数＋ “人.xlsx”
Excel程序.创建 ()
Excel工作簿.激活工作簿 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.打开 (EXCEL文件名)
Excel工作簿.表格序号＝ 1
Excel工作簿.表格名＝名
Excel工作簿.激活 ()
.变量循环首 (1, 超级列表框2.取表项数 (), 1, x)
处理事件 ()
.变量循环首 (1, 超级列表框2.取列数 (), 1, y)
      处理事件 ()
      文本＝字符 (96 ＋ y)
      Excel工作簿.首单元格＝文本＋到文本 (1)
      Excel工作簿.尾单元格＝文本＋到文本 (1)
      Excel工作簿.内容格式＝ “@”
      Excel工作簿.内容＝超级列表框2.取列标题 (y － 1)
      Excel工作簿.首单元格＝文本＋到文本 (x ＋ 1)
      Excel工作簿.尾单元格＝文本＋到文本 (x ＋ 1)
      Excel工作簿.内容格式＝ “@”
      Excel工作簿.内容＝超级列表框2.取标题 (x － 1, y － 1)
.变量循环尾 ()
.变量循环尾 ()
Excel工作簿.保存 (EXCEL文件名)
Excel工作簿.关闭 ()
Excel工作簿.释放 ()
Excel程序.退出 ()
Excel程序.释放 ()

补充内容 (2021-6-1 08:20):
这个代码要怎么改下