精易论坛

标题: 大佬帮忙看一下导出代码 [打印本页]

作者: lg0224 时间: 2018-9-28 09:14
标题: 大佬帮忙看一下导出代码
不知道哪错了导出不了导出没有 .xsl

.版本 2
.支持库 eExcel2000
.支持库 eGrid
.支持库 shell
.子程序数据导出
.局部变量局部_计次1, 整数型
.局部变量局部_计次, 整数型
.局部变量局部_导出头, 文本型, , "0"
通用对话框1.初始目录＝取运行目录 ()
通用对话框1.类型＝ 1
通用对话框1.文件名＝ “销货清单(” ＋到文本 (取日期 (取现行时间 ())) ＋ “).xls”
.如果真 (通用对话框1.打开 () ＝假)
返回 ()
.如果真结束
载入 (窗口_导出进度, _启动窗口, 假)
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序号＝ 1
局部_导出头＝ { “序号”, “销货日期”, “客户名称”, “商品名称”, “商品单位”, “单价”, “数量”, “金额”, “备注” }
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
Excel工作簿1.首单元格＝字符 (97 ＋局部_计次1 － 1) ＋到文本 (1)
Excel工作簿1.尾单元格＝字符 (97 ＋局部_计次1 － 1) ＋到文本 (1)
Excel工作簿1.内容格式＝ “@”
' Excel工作簿1.内容＝局部_导出头 [局部_计次1]
.计次循环尾 ()
窗口_导出进度.进度条1.最大位置＝高级表格.行数
.计次循环首 (高级表格.行数, 局部_计次)
处理事件 ()
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次1)
      Excel工作簿1.首单元格＝字符 (97 ＋局部_计次1 － 1) ＋到文本 (局部_计次＋ 1)
      Excel工作簿1.尾单元格＝字符 (97 ＋局部_计次1 － 1) ＋到文本 (局部_计次＋ 1)
      Excel工作簿1.内容格式＝ “@”
      Excel工作簿1.内容＝高级表格.取数据 (局部_计次－ 1, 局部_计次1 － 1)
.计次循环尾 ()
窗口_导出进度.进度条1.位置＝窗口_导出进度.进度条1.位置＋ 1
.计次循环尾 ()
.如果真 (是否已创建 (窗口_导出进度))
窗口_导出进度.销毁 ()
.如果真结束
Excel工作簿1.保存 (通用对话框1.文件名)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
信息框 (“导出成功!”, #信息图标, )
执行 (4, 通用对话框1.文件名, , , )

.子程序 _按钮_导出_被单击
.如果真 (高级表格.可视＝假)
信息框 (“请选择要保存的数据表。”, 0, )
返回 ()
.如果真结束
数据导出 ()

作者: lg0224 时间: 2018-9-28 09:35
上边那个说错了是XLS

作者: lg0224 时间: 2018-9-28 09:39

lg0224 发表于 2018-9-28 09:35
上边那个说错了是XLS

不管了管他XLS 还是XSL 懂意思就行

作者: wxf5215215 时间: 2018-9-28 10:17
是XLS...........

欢迎光临精易论坛 (https://125.confly.eu.org/)