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

xmyjk

wcymiss 发表于 2012-1-31 23:22
按照你的代码测试下来，是adox那段比较快，可是openschema慢在Set rst1 = Nothing和cnn.Close这两句上。这 ...

又测试了一下，最最最影响速度的还是cnn.Close那句，删了那句就差了非常非常多。

呵呵，之前赵老师有说过"用ADO法循环连接工作簿时，通常使用一个变量cnn，连接下一个工作簿前要关闭上一个连接，需要付出一定时间，如果每个工作簿都有一个连接变量cnn1、cnn2……同时连接，等到程序结束时再统一关闭连接，释放内存，这样可以大大提高速度，但是带来的就是占用内存，经与冻版主协商，并采用冻版主的建议——进行极限测试，数据源工作簿改为49个，每个工作簿只有1个40000行数据的工作表后进行测试，同时连接法在连接第27个工作簿时因内存不足报错，常规法则没有报错。每个得高分的算法都有可能成为人们解决此类问题的范例，因此，应该避免使用采用同时连接法。"

不过说实在的，貌似没有cnn.close好像是内存发生无法释放的问题，SET NOTHING能释放内存么？，要不还是请赵老师集体解说下吧，就是ADO结束时，有必要去.close吗？貌似不需要.close效率反而更高啊。。。直接set nothing不就玩了，为啥主流的教材都是说要.close然后set noting呢？

另外，ADOX有TABLE_TYPE可以排除表的类型，貌似应该也可以筛出来。

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 中