【易语言】导出Excel表格

输出调试文本 (数据库连接1.连接Access (“C:\Users\Administrator\Desktop\base.mdb”)) ' 连接ACCESS数据库C:\Users\Administrator\Desktop\base.mdb

输出调试文本 (数据库连接1.执行SQL (“SELECT * INTO [Excel 8.0DATABASE=C:\Users\Administrator\Desktop\工作簿1.xls].[Sheet1] FROM 单据列表”)) ' 导出数据库中的表（单据列表）到EXCEL

.版本 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程序.退出 ()

---