选择路径后，遍历子文件夹

Sub opensubfolders()

Dim i As Integer

Dim subfolder As Integer

'打开文件夹，查询子文件夹个数，用于计算生成报告的数量
    Dim mpath$ '打开路径位置
    ' Dim fso As FileSystemObject
    ' Dim mfolder As Folder
    ' Dim mfile As File '循环遍历文件


    With Application.FileDialog(msoFileDialogFolderPicker) '文件夹对话框
        .Show
        mpath = .SelectedItems(1)
    End With
    
    Set fso = CreateObject("scripting.filesystemobject") 'fso
    subfolder = fso.GetFolder(mpath).SubFolders.Count     '求子文件夹个数
    
    For Each mfolder In fso.GetFolder(mpath).SubFolders   '循环遍历每个子文件夹
           
        'TODO 打开模板
        Dim mypath As String  'svalue ’定义变量
        mypath = ThisWorkbook.Path & "\" & "Site Design Report Template.xlsx" '需要被打开的模板路径及名称
        Workbooks.Open Filename:=mypath '打开文件
        'ActiveWorkbook.Visible = False '这句是隐藏文件
        'svalue = ActiveWorkbook.Sheets(1).Range("a1").Value '这句是用变量取得该文件表1中a1单元格的值

        ’'''''''添加具体操作，计算每个站点的数据、粘贴图片等

        '另存为文件夹名称对应的报告，例:"Site Design Report_B00459.xlsx"

        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Site Design Report_" & mfolder.Name, 51

        ActiveWorkbook.Close False '关闭模板，不保存

    Next

End Sub