VBA提取表格内容，怎么改成可以读取子文件夹的

xuwq22 · 发表于 2017-5-8 11:59

各位大侠号：
   我在做一个使用 VBA提取表格内容的功能，目前功能实现了，但是只能提取当前文件夹里的.doc文件的内容，功能受限制；
   我想改成可以读取当前文件夹内子文件夹里的.doc文件的，但没有修改成功；
   各位大侠能帮我看看怎么改成可以读取子文件夹的么？谢谢；
   附件中是原始文件，在excel中单击“统计”，就可以把各个.doc文件中的指定的表格位置的内容自动提取到excel里面；

word表格数据提取.rar (31.39 KB, 下载次数: 17)

蓝桥玄霜 · 发表于 2017-5-8 14:04

http://club.excelhome.net/forum. ... p;extra=#pid8435123
搜索多工作簿提取数据

xuwq22 · 发表于 2017-5-8 14:26

蓝桥玄霜发表于 2017-5-8 14:04
http://club.excelhome.net/forum.php?mod=viewthread&tid=1238947&pid=8435123&page=1&extra=#pid8435123
...

您能帮我做一下吗，我试了试还是没弄对；我刚开始学VBA

xuwq22 · 发表于 2017-5-9 09:01

蓝桥玄霜发表于 2017-5-8 14:04
http://club.excelhome.net/forum.php?mod=viewthread&tid=1238947&pid=8435123&page=1&extra=#pid8435123
...

做出来了。

xuwq22 · 发表于 2017-5-9 18:17

xuwq22 发表于 2017-5-9 09:01
做出来了。

师傅，能发给我一下么

xuwq22 · 发表于 2017-5-9 22:46

xuwq22 发表于 2017-5-9 09:01
做出来了。

师傅，能发给我一下么

gdzrh917 · 发表于 2017-5-9 23:54

Sub 遍历所有文件夹()
On Error Resume Next
Dim f As String
Dim Folder() As String
Dim i, k, x, t
t = Timer
x = 1
i = 1
k = 1
ReDim Folder(1 To i)
Folder(1) = ThisWorkbook.Path & ""
'-- 获得所有子目录
Do Until i > k
f = Dir(Folder(i), vbDirectory)
Do Until f = ""
If f <> "." And f <> ".." Then
If (GetAttr(Folder(i) & f) And vbDirectory) = vbDirectory Then
k = k + 1
ReDim Preserve Folder(1 To k)
Folder(k) = Folder(i) & f & ""
End If
End If
f = Dir
Loop
i = i + 1
Loop
End Sub

复制代码

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

[求助] VBA提取表格内容，怎么改成可以读取子文件夹的