易语言表格导出Exel?

发布网友发布时间：2022-05-24 16:12

共1个回答

热心网友时间：2023-11-11 08:50

.版本 2
.支持库 eExcel2000
.支持库 iext

Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号＝ 1

Excel工作簿.激活 ()
.' 变量循环首 (1, 超级列表框.取表项数 (), 1, x)
' 处理事件 ()
.' 变量循环首 (1, 超级列表框.取列数 (), 1, y)
' 处理事件 ()
' 文本＝字符 (96 ＋ y)
' Excel工作簿.首单元格＝文本＋到文本 (1)
' Excel工作簿.尾单元格＝文本＋到文本 (1)
' Excel工作簿.内容格式＝ “@”

' Excel工作簿.内容＝超级列表框.取列标题 (y － 1)
' Excel工作簿.首单元格＝文本＋到文本 (x ＋ 1)
' Excel工作簿.尾单元格＝文本＋到文本 (x ＋ 1)
' Excel工作簿.内容格式＝ “@”
.' 如果真 (寻找文本 (超级列表框.取列标题 (y － 1), “数量”, , 假) ≠ -1)
' Excel工作簿.内容格式＝ “0”
.如果真结束
' Excel工作簿.内容＝超级列表框.取标题 (x － 1, y － 1)
.' 变量循环尾 ()

.' 变量循环尾 ()

Excel工作簿.保存 (保存位置＋ “.xlsx”)
Excel程序1.显示＝假
' Excel工作簿.打开 (保存位置＋ “.xlsx”)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.退出 ()