怎么快速批量合并上百个工作簿到一张工作表

glhdex

原帖由 夜行 于 2009-7-10 22:12 发表
试试看是不是附件所要达到意思？
具体操作步骤请看“操作说明”。

谢谢夜行的持续关注和帮助，效果很好。
xlsFile文件夹内excel工作簿个数有没有上限？是否可以修改vbs后，实现在合并后新建的以日期命名的工作表中每个科目之间插入一空行？若合并后的总行数超过65000行，能成功吗？请夜行继续关注！

[ 本帖最后由 glhdex 于 2009-7-11 06:54 编辑 ]

夜行

1.工作薄没有上限
2.在下面的代码：
For Each objFile In objFiles
    CCopy objFile.Name
Next
改成
For Each objFile In objFiles
    CCopy objFile.Name
　x = x + 1       '增加这一行
Next
再试一下看看，会不会达到你所需要的？
3.不能超过工作表行数的限制。03版之前的是65536行，07版的据说可以达到十几万行，我没试过。

hupanshan

好不容易找到了Sheet名称的解决方法，楼主又有新要求了。不管怎么说，先把成果公布
导出明细帐.rar (24.58 KB, 下载次数: 109)

2009-7-11 08:55 上传

点击文件名下载附件

glhdex

原帖由 夜行 于 2009-7-11 08:28 发表
1.工作薄没有上限
2.在下面的代码：
For Each objFile In objFiles
    CCopy objFile.Name
Next
改成
For Each objFile In objFiles
    CCopy objFile.Name
　x = x + 1       '增加这一行
Next
再试一下 ...

代码在哪儿？在vbs处理

[ 本帖最后由 glhdex 于 2009-7-11 10:56 编辑 ]

glhdex

合并后没有科目名称呀，打印出来怎么分清谁是谁？

夜行

选中“处理.VBS“，这个文件，右键，选择“编辑”，就可以打开了。

夜行

我自己改了，你再试试吧。见附件。

glhdex

谢谢！你真牛！
再问一个问题：是我前不久发在vba区的  《vba批量打印速度慢并丢失打印机的问题》可怜！没人理睬
链接http://club.excelhome.net/thread-456708-1-1.html###
请帮助！

如抛开打印报错方面的问题不谈，用vbs是否可以做一个批量打印的程序，达到以上链接附件中的效果？

[ 本帖最后由 glhdex 于 2009-7-11 11:17 编辑 ]

夜行

我回复了，你可以去试试。

夜行

VBS做VBA中批量打印的程序，做可以做，但效果不好，也麻烦，这不是VBS的强项。