一个数据集输出到EXCEL文件的问题?!

wangwei1979 2006-03-03 08:03:06
我不大懂VBA
想把一个数据集中的数据每1000条输出到xls文件
本人用了最没办法的办法:-)
Dim xlsApp As Excel.Application
Dim xlsWk As Excel.Workbook
Dim xlsSht As Excel.Worksheet
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = False
Set xlsWk = xlsApp.Workbooks.Add
Set xlsSht = xlsWk.Worksheets(1)
为了在生成xls文件时不提示,就每次都生成excel.application(这法子很慢)
有没好一点的发法,在一个excel.application中可直接保存(excel不给提示)多个xls文件

各位有想法兄弟,帮帮忙!感激不尽!
给个思路,最好能有源码.
...全文
91 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
vansoft 2006-03-03
直接用SQL的導出語法啊。
insert into...
select ....
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2006-03-03 08:03
社区公告
暂无公告