|
5精币
不导出数据,e数据库可以正常打开,
导出超级列表框的数据后,导出用到 excel程序和excel工作簿这两个
成功导出后,再打开数据库失败了,使用的是edb
有人遇见过同样的问题吗?
应该是excel程序和excel工作簿操作影响的,不知道怎么解决啊
以下是导出时用到的代码
.版本 2
.支持库 eExcel2000
.支持库 iext
.子程序 _按钮导出_被单击
.局部变量 局部_计次1, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_导出头, 文本型, , "0"
.如果 (pp只运行一个 = 0)
pp只运行一个 = 1
通用对话框_公用.类型 = 1
.如果真 (通用对话框_公用.打开 () = 假)
pp只运行一个 = 0
返回 ()
.如果真结束
进度条1.可视 = 真
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.表格序号 = 1
局部_导出头 = { “城市”, “所在分类”, “联系人”, “电话”, “QQ”, “标题”, “网址URL” }
.计次循环首 (取数组成员数 (局部_导出头), 局部_计次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.首单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)
Excel工作簿1.尾单元格 = 字符 (97 + 局部_计次1 - 1) + 到文本 (局部_计次 + 1)
Excel工作簿1.内容格式 = “@”
Excel工作簿1.内容 = 超级列表框1.取标题 (局部_计次 - 1, 局部_计次1 - 1)
.计次循环尾 ()
进度条1.位置 = 进度条1.位置 + 1
.计次循环尾 ()
进度条1.可视 = 假
进度条1.位置 = 0
Excel工作簿1.保存 (通用对话框_公用.文件名)
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
pp只运行一个 = 0
标签1.标题 = “状态条:数据成功导出!”
.否则
信息框 (“其他线程正在运行,请先停止!”, 0, ) |
|