Excel VBA小程序04- 合并同文件夹下多工作簿中同名工作表并生成汇总表格

参考：
VBA 合并同文件夹下多工作簿中同名工作表到 一工作簿一工作表

2022/1/19 更新
跳过不含指定sheet的工作薄并汇总。

Sub Build_Sheet_List()
    Dim sht As Worksheet, i As Long, strName As String
    With Columns(1)
        .Clear '清空A列数据
        .NumberFormat = "@" '设置文本格式
    End With
    For i = 1 To Sheets.Count '索引法遍历工作表集合
        strName = Sheets(i).Name '表名
        Cells(i, 1).Value = strName
        ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", _
                SubAddress:="'" & strName & "'!a1", TextToDisplay:=strName
    Next
End Sub

Sub all_excel_files()
    Dim path As String, filename As String
    Dim w As Workbook, ws As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
    '-------------------取得用户选择的文件夹路径---------------------------
    If .Show Then path = .SelectedItems(1) Else Exit Sub
    End