怎么选择文件夹（含子文件夹）获取所有文件

梦羽111

现在只能获取当前文件夹里面的表格路径，怎么样获取文件夹（含子文件夹）里面的所有表格路径

limonet

递归recurse

x-xx-xx

文件夹遍历

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
链接的资料可以参考

ykcbf1100

你这个就是麻烦，不仅仅是文件夹选择问题，数据项太多，且不一一对应。

ykcbf1100

提取了10个字段数据，其它的数据你自己照着写一下吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.4.30
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Dim fns As New Collection
   
5.     Set sh = ThisWorkbook.Sheets("配料单")
   
6.     p = ThisWorkbook.Path & "\测试"
   
7.     Set fso = CreateObject("Scripting.FileSystemObject")
   
8.     Set ff = fso.GetFolder(p)
   
9.     getFiles ff, fns, fso
   
10.     b = [{"i3","i4","c3","c5","i5","i6","a9","e9","c9","i9"}]
    
11.     ReDim brr(1 To 1000, 1 To 200)
    
12.     For Each f In fns
    
13.         m = m + 1
    
14.         brr(m, 1) = m
    
15.         Set wb = Workbooks.Open(f(0), 0)
    
16.         With wb.Sheets(1)
    
17.             For x = 1 To UBound(b)
    
18.                 brr(m, x + 1) = .Range(b(x))
    
19.             Next
    
20.         End With
    
21.         wb.Close False
    
22.     Next
    
23.     With sh
    
24.         .UsedRange.Offset(3).ClearContents
    
25.         .[a4].Resize(m, 100) = brr
    
26.         .[a4].Resize(m, 100).Borders.LineStyle = 1
    
27.     End With
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub

复制代码

limonet

本想写写，但真看不惯：丢个问题就跑的行为。

liuxin12

参考我的主题：批量修改同文件夹路径下的所有文件名

ykcbf1100

liuxin12 发表于 2024-5-1 01:07
参考我的主题：批量修改同文件夹路径下的所有文件名

看来你是没看附件，其实，他主要的问题在于数据处理，不是获取文件路径。