跨工作簿汇总

zhaogang1960

ilovefreekick 发表于 2015-4-12 13:01
赵老师，我正在学习您的这些代码，我也是长期需要汇总工作薄下面的多个文件内容，一直用的是提取最后一行 ...

If rs.Fields("TABLE_TYPE") = "TABLE" Then '如果字段类型是表
s = Replace(rs("TABLE_NAME").Value, "'", "") '去掉表名中可能可能存在的单引号，如果表名中含有数字，则会出现多余的单引号
If Right(s, 1) = "$" Then '只有真正的工作表名右边第一个字符才是$，程序会把名称误认为是工作表，但右边没有$

ilovefreekick

zhaogang1960 发表于 2015-4-12 19:06
If rs.Fields("TABLE_TYPE") = "TABLE" Then '如果字段类型是表
s = Replace(rs("TABLE_NAME").Value, " ...

谢谢赵老师！

ilovefreekick

zhaogang1960 发表于 2014-3-10 17:19
经测试，ADO+数组法比ADO联合查询速度更快：

        赵老师，关于ADO加数组我还有几个问题不明白：
1、如果每个表格里面有几张表，sheet1、sheet2、sheet3等，每个表都有数据，但是我只要取排序是1的表里面数据如何修改代码？你的这个代码我测试了，其他几个表的数据也会抓过来。
2、关于getrows 这里我想请教一下，是不是arr的第一维是表格里面的列数？而第二维是表格里面的记录数？也就是行数？
              For i = 0 To UBound(arr, 2)
                            m = m + 1
                            brr(m, -1) = m
                            For j = 0 To 11
                                brr(m, j) = arr(j, i)
                            Next
                 Next
我测试了，实际记录数大于11的，也都能取进来，我就没有明白这个意思。arr的维度是怎么确定的？
？两个问题，请赵老师帮忙解答

一指禅62

http://club.excelhome.net/thread-1268508-1-1.html  可供参考。

nervfwg

留记号学习

ilovefreekick

zhaogang1960 发表于 2014-3-10 16:20
4楼代码适合于待合并工作簿较少的情况，如果工作薄多达几百个，仅用GetObject打开、关闭它们，其他什么也不 ...

再次学习了！

ilovefreekick

ilovefreekick 发表于 2015-4-19 20:30
赵老师，关于ADO加数组我还有几个问题不明白：
1、如果每个表格里面有几张表，sheet1、sheet2、 ...

因为这里是取表名称，而不是制定表为1.汇总，所以如果有多余的表肯定会统计进来，搞明白了！

ilovefreekick

chxw68 发表于 2014-3-10 15:45

老师您好，看了您的代码学习了SQL，依据您这个我也会依葫芦画瓢写多表复制的sql代码了，之前只会用数组复制，速度会慢一些，想学习sql提升速度。这里面有两句不是很明白，请您指导：
sql = Mid(sql, 11)  为什么要截取之前的11位呢？这里面有什么原理还不懂？数据不是12行吗？这个sql也是从0开始？
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic  这句是不是等于Set rs = cnn.Execute(SQL)？？请您指导，我还看过rs.open sql,cnn,1,3的，这个又是什么意思呢？

ilovefreekick

chxw68 发表于 2014-3-10 15:45

老师还有一个问题，您这个会不会受50个表的限制？如果是，是否像赵老师那样优化？

ilovefreekick

chxw68 发表于 2014-3-10 15:45

确实受50表的限制，错误提示：查询过于复杂，删除几个表就行了！