【分享】批量处理文件的VBA程序样板

tao60

我经常会用到的程序,可能大伙也用得上.

有时会有一大堆数据文件需要作相同的处理,我就用这个VBA程序作一点点修改,然后就可以大批量的自动处理了.
处理流程:
1-通过对话框选择需要处理的文件(可多选)
2-通过循环,逐一打开所选择的文件
3-使用编写好的程序对所打开的文件进行处理
4-将已打开的文件关闭,是否保存可自行修改实现
5-处理过程中有进度条显示,可以看到处理进度情况.

附件中的VBA程序所实现的功能是:
把所选择的源文件的第一个工作表合并到一个目标文件中,之后关闭源文件但不保存原文件.

[ 本帖最后由 tao60 于 2009-7-23 22:23 编辑 ]

tao60

呵呵. 这么简单的应该大伙都会了.

kingas2002

分享伟大。
谢谢！先收下了。

e丫丫

下载了慢慢研究了

LAOMALIN

下载研究下

heqiubao

FileDialog属性第1次看到，学习下。之前我一直用Application.GetOpenFilename("Excel文件,*.xls", , "请选择数的数据源文件", , False)，这个需要更多的代码行数和变量来设置默认路径以及保存返回值。似乎FileDialog属性可以更简捷灵活些。
另外，进度前我之前自己的程序中感觉挺困惑的。在For语句中，如你的程序，可以指定进度值。但我用的是Select 字段 from 表 not in 记录集，在数据量在万条以上的时侯就很慢，但Select中没有想出可以很好插入进度条的方法。不知各位大侠有没有遇到过类似的困惑有没有好的办法。
你这个程序，确实如你所言，大家会常用到，我自己也常写这些类似的代码。

[ 本帖最后由 heqiubao 于 2009-7-12 18:01 编辑 ]

Timer2009

写的很好，我是vba新手，正在解决类似问题，不同的是类似txt的导入合并，改了一下楼主的程序就可以用啦。感谢～

tao60

原帖由 heqiubao 于 2009-7-12 18:00 发表
FileDialog属性第1次看到，学习下。之前我一直用Application.GetOpenFilename("Excel文件,*.xls", , "请选择数的数据源文件", , False)，这个需要更多的代码行数和变量来设置默认路径以及保存返回值。似乎FileDialog属性可以更简捷灵活些。
另外，进度前我之前自己的程序中感觉挺困惑的。在For语句中，如你的程序，可以指定进度值。但我用的是Select 字段 from 表 not in 记录集，在数据量在万条以上的时侯就很慢，但Select中没有想出可以很好插入进度条的方法。不知各位大侠有没有遇到过类似的困惑有没有好的办法。
你这个程序，确实如你所言，大家会常用到，我自己也常写这些类似的代码。

真抱歉，看得不是很明白，可以上传个附件来讨论一下吗？

来生缘

GOOD，做得不借

泓()

现在正好观摩一下楼主的代码。