本文目录一览:
易语言中如果使用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程序.退出 ()