工作簿汇总，工作表汇总合并，多文件汇总合并通用代码支持多层子文件夹

zavier.tang · 发表于 2018-8-3 17:20

本帖最后由 zavier.tang 于 2018-8-3 17:28 编辑

老师老师，请问这里报错怎么办啊。
一开始我用少量的工作簿做测试的时候是正常的，然后换成大批量的时候就会有如下报错。
If SubFiles = True Then  '//如果需要查找子文件夹
         MyName = Dir(Ke(I), vbDirectory) '查找目录
         Do While MyName <> ""
            If MyName <> "." And MyName <> ".." Then
                  If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then '如果是次级目录
                     DIC.Add (Ke(I) & MyName & "\"), ""  '就往字典中添加这个次级目录名作为一个条目
                  End If
            End If
            MyName = Dir '继续遍历寻找
         Loop
      End If
      I = I + 1

everwu · 发表于 2018-8-3 17:32

学习学习谢谢老师！

iamwhati · 发表于 2018-8-4 14:33

实在是太强大了

fwgodlike · 发表于 2018-8-6 10:52

opiona 发表于 2018-7-29 07:59
SQL语句可以带有条件的

FROM [xxx$] WHERE 姓名='张三'

SQL语句和VBA的关系可以拓展开讲解一下？

speller · 发表于 2018-8-6 17:16

大神微信号多少，可否发我短消息？下了“跨文件夹汇总”的源码，修改后有几处出错，想问一下问题在哪里。

opiona · 发表于 2018-8-6 21:27

fwgodlike 发表于 2018-8-6 10:52
SQL语句和VBA的关系可以拓展开讲解一下？

http://club.excelhome.net/thread-859194-1-1.html

opiona · 发表于 2018-8-6 21:27

speller 发表于 2018-8-6 17:16
大神微信号多少，可否发我短消息？下了“跨文件夹汇总”的源码，修改后有几处出错，想问一下问题在哪里。

签名中有的！

speller · 发表于 2018-8-6 22:57

opiona 发表于 2018-8-6 21:27
签名中有的！

已加，谢谢

huya1979 · 发表于 2018-8-7 08:10

学习学习谢谢老师！

hb-yy · 发表于 2018-8-17 17:35

学习…………

		自动登录	找回密码
密码			免费注册

[原创] 工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹

[原创] 工作簿汇总，工作表汇总合并，多文件汇总合并通用代码支持多层子文件夹