字段不完全相同的多个工作簿按工作表名汇总[已小结]

wcymiss

xmyjk 发表于 2012-1-31 23:40
又测试了一下，最最最影响速度的还是cnn.Close那句，删了那句就差了非常非常多。

呵呵，之前赵老师有说 ...

所以说，我的代码偷机不少。我一个close也没有。{:soso_e127:}{:soso_e127:}{:soso_e127:}而且你们都是delete名字非“总”的工作表，而我只是clearcontents……

zhaogang1960

xmyjk 发表于 2012-1-31 23:40
又测试了一下，最最最影响速度的还是cnn.Close那句，删了那句就差了非常非常多。

呵呵，之前赵老师有说 ...

我不习惯每连接一个工作簿后就用cnn.close，这样速度太慢，而是用大家通常用的方式：
Set cnn = New ADODB.Connection
(或Set cnn = CreateObject("ADODB.Connection"))
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & MyPath & MyFile
最后再
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
这与Set d = New Dictionary道理相同，经测试，Set cnn = New ADODB.Connection后打开新连接比cnn.close快很多：

xmyjk

zhaogang1960 发表于 2012-2-1 00:15
我不习惯每连接一个工作簿后就用cnn.close，这样速度太慢，而是用大家通常用的方式：
Set cnn = New A ...

多谢赵老师讲解，原来还有这么多技巧，彻底长见识了。。。

zm0115

之前吴姐告诉我字典用 Set d = New Dictionary  速度会快一些。
原来cnn 也可以不关闭，直接 set cnn = New ADODB.Connection
多谢各位，见识了。

jspta

zhaogang1960 发表于 2012-2-1 00:15
我不习惯每连接一个工作簿后就用cnn.close，这样速度太慢，而是用大家通常用的方式：
Set cnn = New A ...

晕死，不知道上面这句那里要被和谐了。

xmyjk

zm0115 发表于 2012-2-1 08:15
之前吴姐告诉我字典用 Set d = New Dictionary  速度会快一些。
原来cnn 也可以不关闭，直接 set cnn = Ne ...

是类那块的思想，太久没搞这东东，我都快忘光了。

Dim   cnn   As   new   ADODB.Connection，是声明了变量又实例化了，也就是系统分配了内存。

而分两步走：
Dim   cnn1   As   ADODB.Connection 先是定义了变量，不会分配内存，接着
set   cnn1=new   ADODB.Connection 才会开始实例化，也就是分配内存。。
如果原对象存在，重新set的时候会销毁内存，进行新的类实例化

虽然这两个是等价的，但是实际应用起来还是有差别的。

zhaogang1960

jspta 发表于 2012-2-1 09:44
晕死，不知道上面这句那里要被和谐了。

看来你对“同时连接”的概念不清楚，通常我们循环连接很多工作簿，是用一个cnn连接的，不管你用什么手段，都不可能同时连接多个工作簿，而你使用的cnn(1)连接第一个，cnn(2)连接第二个……，程序结束时再一并断开所有的工作簿连接，这样解释不知道你理解了没有？

zm0115

xmyjk 发表于 2012-2-1 09:46
是类那块的思想，太久没搞这东东，我都快忘光了。

Dim   cnn   As   new   ADODB.Connection，是声明了 ...

炫月兄， 多谢解释，太深的理论兄弟我不会的呀，你了解我的，呵呵。
我就记得以后怎么用着快就行。哈~~~~~

jspta

zhaogang1960 发表于 2012-2-1 09:58
看来你对“同时连接”的概念不清楚，通常我们循环连接很多工作簿，是用一个cnn连接的，不管你用什么手段， ...

不好意思老师，我没说清楚，我取消了数组的同时连接，而是通常的单个连接，即跟老师的方法是一样的。
请老师测试，代码在Sub GetSheetName 中

zhaogang1960

jspta 发表于 2012-2-1 10:19
不好意思老师，我没说清楚，我取消了数组的同时连接，而是通常的单个连接，即跟老师的方法是一样的。
请 ...

速度还可以，就是结果不正确：