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

陈国华

感谢赵老师给我们这么好的提高水平的机会,现在越来越发现自己知识比较肤浅,博大精深的Excel和VBA还有很多未知领域等待我们去探索，希望2012年脚踏实地，刻苦学习，与大家一起进步！！！最后祝各位老师新的一年身体健康，工作愉快！

zqxzhs

Sub 数组嵌套()  ' 参考答an(1)
'引用Microsoft Scripting Runtime
    Dim ary(), temp, arr, brr(), k, sh As Worksheet
    Dim d As New Dictionary, ds As New Dictionary, dic As New Dictionary, dm As New Dictionary, dn As New Dictionary
    Dim myPath$, myFile$, i&, j&, lc&, shc&, shn$
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name Then sh.Delete '删除可能存在的已汇总工作表
    Next
    Application.DisplayAlerts = True
    myPath = ThisWorkbook.Path & "\数据源\"
    myFile = Dir(myPath & "*.xls")
    Do While myFile <> ""
        Set wb = GetObject(myPath & myFile) '打开个工作簿
        For Each sh In wb.Sheets '逐表
            With sh
                shn = .Name '表名
                If Not d.Exists(shn) Then

请问：“数据源”文件夹能否用工作表“总”的a1单元格的值来表示呢？如果能的话，应如何写代码？

zhaogang1960

zqxzhs 发表于 2012-1-29 21:29
请问：“数据源”文件夹能否用工作表“总”的a1单元格的值来表示呢？如果能的话，应如何写代码？

如果A1单元格内容是：
F:\数据源\
myPath =[a1]

wcymiss

      原来，除了cat.tables的table.name可以取得表名，cnn.OpenSchema也可以取表名啊。而且速度比cat.table好像略快些。每次做赵老师的题都能学到新东东，太好了。
      vba的知识点我还是知道得太少了。

zhaogang1960

wcymiss 发表于 2012-1-19 23:28
ADO取数，然后字典处理。

回答下图问题：

请看下面先成功、后报错演示：

zhaogang1960

继续上帖问题，请测试设置了打印区域的数据源：

zm0115

zhaogang1960 发表于 2012-1-29 22:48
回答下图问题：

请看下面先成功、后报错演示：

看到这个，才想起我的答案不严谨，忽略了对表类型的判断。

zhaogang1960

zm0115 发表于 2012-1-30 16:48
看到这个，才想起我的答案不严谨，忽略了对表类型的判断。

我能拿出来的“证据”也只能打印区域这个假工作表了，其实从某些数据库中导出来的工作簿也可能含有类似的假工作表名，数据库方式读取出来的表名不全都是真的

Simon_Zhu

zhaogang1960 发表于 2012-1-30 17:01
我能拿出来的“证据”也只能打印区域这个假工作表了，其实从某些数据库中导出来的工作簿也可能含有类似的 ...

学习了，这个真没有深入研究过，经验收藏了，感谢分享。

zuiaidh2004

路过学习。。。