导出功能 导不出来了~~高手进来帮忙解决一下 会的人一分钟就搞定了！！

398146396

导出功能 导不出来了~~高手进来帮忙解决一下 会的人一分钟就搞定了！！

请求远程 QQ398146396  全天在线等！！！！
请求远程 QQ398146396  全天在线等！！！！
请求远程 QQ398146396  全天在线等！！！！
请求远程 QQ398146396  全天在线等！！！！
请求远程 QQ398146396  全天在线等！！！！


.版本 2
.支持库 eExcel2000
.支持库 iext
.局部变量 EXCEL文件名, 文本型
.局部变量 x
.局部变量 y
.局部变量 文本, 文本型
.局部变量 保存结果, 逻辑型
通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “EXCEL文件|*.XLS”
通用对话框1.默认文件后缀 ＝ “.xls”
.如果真 (通用对话框1.打开 () ＝ 假)
    返回 ()
.如果真结束
EXCEL文件名 ＝ 通用对话框1.文件名
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号 ＝ 1
Excel工作簿.激活 ()
.变量循环首 (1, 超级列表框1.取表项数 (), 1, x)
    .变量循环首 (1, 超级列表框1.取列数 (), 1, y)
        文本 ＝ 字符 (96 ＋ y)
        Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)
        Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)
        Excel工作簿.内容格式 ＝ “@”
        Excel工作簿.内容 ＝ 超级列表框1.取列标题 (y － 1)
        Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
        Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
        Excel工作簿.内容格式 ＝ “@”
        Excel工作簿.内容 ＝ 超级列表框1.取标题 (x － 1, y － 1)
        输出调试文本 (超级列表框1.取标题 (x － 1, y － 1))
    .变量循环尾 ()
.变量循环尾 ()
Excel工作簿.保存 (EXCEL文件名)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.退出 ()

千年

导出例子.zip (13.9 KB, 下载次数: 67)

2012-3-2 09:45 上传

点击文件名下载附件

例子 就一句代码,你自己看着修改吧,这个实在太简单了....

哓哓

以前写的 如果可以  记得好评哦 导入 导出.rar (2.45 KB, 下载次数: 48)

2012-3-2 09:26 上传

点击文件名下载附件

398146396

哓哓 发表于 2012-3-2 09:26
以前写的 如果可以  记得好评哦

给我 我也不会整~能帮我远程改下么···

哓哓

398146396 发表于 2012-3-2 09:32
给我 我也不会整~能帮我远程改下么···

还有点时间，源码上传吧，远程太郁闷

Tab合作伙伴

二楼的东西挺好用的感谢！

398146396

哓哓 发表于 2012-3-2 09:33
还有点时间，源码上传吧，远程太郁闷

+我Q 398146396 给你

哓哓

398146396 发表于 2012-3-2 09:38
+我Q 398146396 给你

晕 非要+Q干嘛 不喜欢。。。。。抱歉

补充内容 (2012-3-2 09:39):
很多人能搞定的 你再等等吧

398146396

哓哓 发表于 2012-3-2 09:39
晕 非要+Q干嘛 不喜欢。。。。。抱歉

补充内容 (2012-3-2 09:39):

好嘞好嘞好嘞好嘞好嘞

千年

昨天那个比较忙,没时间弄!!!

凌晨几点弄完之后,一看你的帖子,结果有人发了...我也就没发....

刚一看到,你又发了,可我又删除了,蛋疼!!!!