|
发表于 2010-10-10 22:36:21
|
显示全部楼层
江苏省苏州市
.版本 2
.支持库 eExcel2000
.支持库 iext
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
通用对话框_公用.初始目录 = 取运行目录 ()
.子程序 子程序_导出
.局部变量 局部_计次1, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_导出头, 文本型, , "0"
通用对话框_公用.类型 = 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.保存 (通用对话框_公用.文件名)
_启动窗口.Excel工作簿1.关闭 ()
_启动窗口.Excel工作簿1.释放 ()
_启动窗口.Excel程序1.退出 ()
_启动窗口.Excel程序1.释放 ()
信息框 (“导出成功!”, #信息图标, )
执行 (4, 通用对话框_公用.文件名, , )
返回 () |
评分
-
查看全部评分
|