刚学VBA，求大神优化代码

lunjun626

copy.rar (16.82 KB, 下载次数: 6)

2013-2-22 11:00 上传

点击文件名下载附件

将csv文件中的部分内容copy到表中，运行很慢，请教专家指点，谢谢！

hehex

这个程序可优化的空间比较小。看了你的文件以及附件，发现是循环读取.CSV 文件然后做单元格操作。
然后发现.CSV 文件存贮数据位置和目标文件无规律，即使用数组操作也很麻烦，须用多重循环去凑单元格位置。然后这个程序的执行效率的瓶颈在于文件I/O，你必须要一个一个打开CSV 读取，然后关闭。如果只打开不关闭这种方式的话可能会快点，但是随时会引起程序崩溃，是不足取的。
因此只做了简单优化，看看你程序的问题：
文件I/O 部分：do 循环，DIR 函数和GetObject 用的不错，看来是下了功夫了。
读取CSV 文件内容部分就有很大问题，首先想用copy 方法就是错误的想法。copy 方法适用于大片区域，比如一个工作表，一次性拷过去。前面已经说过了，你这个表基本上是无规律的单元格内容引用，就是把B 表的某单元格内容填入A 表某单元格。每一个单元格copy 一次大大降低效率，而且为了实现这个copy 动作，又无必要的隐式申明了一大堆对象，每申明一个对象都要在内存中开辟一块空间，同样也需要时间让系统处理。

不多说了，参考附件吧，我做的简单优化程序，在读取3个CSV 文件数据时，稳定时间在0.4 秒。
你原来的程序读取3个CSV 文件需要用0.7-0.8 秒，提升效率已经在80% 以上。如果读取文件更多，效率应该更高一些。

lunjun626

hehex 发表于 2013-2-22 12:11
这个程序可优化的空间比较小。看了你的文件以及附件，发现是循环读取.CSV 文件然后做单元格操作。
然后发现 ...

确实 快了很多，感谢赐教。
我用220个文件做了测试，修改前化了108秒，修改后64秒就运行结束了，十分感谢！