[求助]如何用VBA遍历指定目录下的所有子文件夹和文件

liumongshi · 发表于 2011-5-17 15:40

灰狼老师：我想实现在可以自由选取文件夹，遍历子文件夹的前提下，（我有三万多个格式完全相同的工作薄，每个工作薄里有八张工作表，每个工作表有很多信息），我想提取第一张表中的b2单元格(姓名)，d3（村组），第二张表中的c3（等级），f5（金额），把这些东西提取后，在另一个excel中从b列开始依次填入提取的数据，每一行即为提取一个工作薄内容的记录，依次排下来，做成一个目录的形式。不知道我是不是和一年级的学生，问清楚了没有？望得到完整代码解答。

szqhb · 发表于 2011-5-17 17:37

原帖由 liumongshi 于 2011-5-17 15:40 发表
灰狼老师：我想实现在可以自由选取文件夹，遍历子文件夹的前提下，（我有三万多个格式完全相同的工作薄，每个工作薄里有八张工作表，每个工作表有很多信息），我想提取第一张表中的b2单元格(姓名)，d3（村组），第二 ...

几万个文档一起提取数据，估计你的电脑也吃不消啊，这样做也不现实的，还是小范围提取吧
坛里有个叫yuanzhuping的高手，估计可以帮到你，你单独发帖子，附上附件求助把

yjm36 · 发表于 2011-5-17 20:20

这个才是我要找到！！！

liumongshi · 发表于 2011-5-18 10:41

原帖由 szqhb 于 2011-5-17 17:37 发表

几万个文档一起提取数据，估计你的电脑也吃不消啊，这样做也不现实的，还是小范围提取吧
坛里有个叫yuanzhuping的高手，估计可以帮到你，你单独发帖子，附上附件求助把

我不一定要一起提取，这些文件是分门别类放在不同的文件夹的，最多我一次提取几百个数据，这段代码现在我缺少的就是提取单元格数据怎么写了。望解答

EH2003 · 发表于 2011-5-18 14:45

很有参考性的代码

shijiaqiasa · 发表于 2011-5-29 20:47

为什么我在英语版excel下可以运行 Sub Test() 但是中文版的excel不能运行。
运行到 If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then 就会出错。提示运行时错误 52.
有人知道原因吗

liumongshi · 发表于 2011-5-30 00:03

原帖由 yf_992258 于 2009-8-28 15:34 发表

添加一段选择文件夹目录的代码即可
Sub Test() '使用双字典，旨在提高速度
Dim MyName, Dic, Did, I, T, F, TT, MyFileName
'On Error Resume Next
Set objShell = CreateObject("Shell.Applicati ...

灰老师，我想借用您这段代码的上部分，实现我的想法，该怎么修改：我想实现在可以自由选取文件夹，遍历子文件夹的前提下，（我有三万多个格式完全相同的工作薄，每个工作薄里有八张工作表，每个工作表有很多信息），我想提取第一张表中的b2单元格(姓名)，d3（村组），第二张表中的c3（等级），f5（金额），把这些东西提取后，在另一个excel中从b列开始依次填入提取的数据，每一行即为提取一个工作薄内容的记录，依次排下来，做成一个目录的形式。不知道我是不是和一年级的学生，问清楚了没有？望得到完整代码解答。

shijiaqiasa · 发表于 2011-5-30 20:51

为什么我在英语版excel下可以运行 Sub Test() 但是中文版的excel不能运行。
运行到 If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then 就会出错。提示运行时错误 52.
有人知道原因吗

bchou307 · 发表于 2011-8-4 18:07

haotie

zslyyy · 发表于 2011-8-21 22:15

收藏学习{:soso_e117:}

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

[已解决] [求助]如何用VBA遍历指定目录下的所有子文件夹和文件

回复 3楼 zldccmx 的帖子