通过对话框，选择找到文件夹

清风竹-

求助：

本人想把汇总工作簿不和姓名文件夹放在一起，通过对话框，选择找到这个放姓名文件夹的文件夹 ，实现数据汇总。

zjdh

Sub ss表一()
    Dim fd, f, n&, i&, j&, x%, y%
    Dim br(1 To 99999, 1 To 7), ar
    Application.ScreenUpdating = 0
    t = Timer
    Sheet1.Range("a2:G" & Rows.Count).ClearContents
    Set Mapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", &H1)
    If Not Mapp Is Nothing Then
        Directory = Mapp.self.Path & "\"
    Else
        MsgBox "你没有选择目录！": Exit Sub
    End If
    With CreateObject("Scripting.FileSystemObject")
        For Each fd In .GetFolder(Directory).subfolders
            x = x + 1
            For Each f In fd.Files
  .........................

清风竹-

zjdh 发表于 2024-8-3 20:36
Sub ss表一()
    Dim fd, f, n&, i&, j&, x%, y%
    Dim br(1 To 99999, 1 To 7), ar

感谢帮助！