本文目录一览:

易语言中如果使用Excel导入,导出!

目前高级表格控件还无法完成Excel的导出与导入,我也自己研究过,但导出之后会成乱码,现在只能依赖于第三方开发的表格控件。

【易语言】导出Excel表格

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

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

易语言表格导出Exel?

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