[分享]VBA加快Excel数据导入速度

todaynew

Benjamin_luk 发表于 2012-8-22 14:12
但是出现问题了,
在用TARGETR进行赋值,提示错误"需要对象"
我想是因为EXCEL已关闭的原因, 那就将TARGETR转 ...

方法是不错。不过我怎么没有看见1楼和2楼的代码中给DataK对象赋值的语句？如果是这样的话，三楼的代码就多余了，应该直接在给rs的字段赋值时用TargetR应该就可以了。不知道是不是我老眼昏花了？

todaynew

Benjamin_luk 发表于 2012-8-22 16:13
这是为了给大家有一个对比.
一楼是直接用TARGETR赋值, 再写入RS, 然后关闭XLS, 速度太慢
二楼是XLS数 ...

我是问1楼和2楼的代码中的
rs.Fields(1) = DataK(J, 1)是不是写错了，而是rs.Fields(1) = TargetR(J, 1)。

如果是这样的话，三楼的代码应该不要，只需要将二楼的代码修改一下就可以运行了。按说数据从Excel表读到TargetR变量中后，关闭Excel对象不会释放TargetR的数据。


我试了一下，不用另外一个变量过渡。你的问题是变量用错了，呵呵。

todaynew

Benjamin_luk 发表于 2012-8-22 17:18
确定是写错, 是用最后的代码COPY过来的,忘记修改了.
我这里测试2楼代码时,确实是关闭EXCEL后, TARGETR ...

按你的思路，我试了一下读取Word中的table数据，大体上也可以，不过读出来的是一个有规律的字符串，需要用split分解为二维数组，总体上速度也是很快的。

todaynew

Benjamin_luk 发表于 2012-8-23 17:38
确实有点不明白, 将EXCEL数据转给变量后,
不关闭EXCEL的速度为什么会慢,
数据传递后,EXCEL按理也不需要 ...

可能是在对象中搜索元素比在数组中搜索元素计算要复杂吧？

此外，Set TargetR = .Range("A1:I" & I) 语句应该是设置一个对象，而DataK = TargetR似乎是将对象元素的值转换为数组赋值给了DataK。由此可不必设置TargetR对象，而直接写为DataK=.Range("A1:I" & I)，这样关闭Excel表对象，DataK数组并不受影响。