VBA(Excel)で再帰的にファイルを開くには

VBA(Excel)にて、再帰的にファイルを開くスニペット

Option Explicit

' メイン処理
Sub main()
    Dim targetFolder As String
    Dim fso As Object

    ' 画面更新の停止
    Application.ScreenUpdating = False
    'イベント抑止
    Application.EnableEvents = False


    ' 対象フォルダの指定
    targetFolder = ThisWorkbook.Worksheets(1).Range("B1").Value

    Set fso = CreateObject("Scripting.FileSystemObject")

    ' 対象フォルダ配下（サブフォルダ）の全ファイルに対する処理（再帰処理）
    Call loopAllFiles(targetFolder, fso)

    Set fso = Nothing

    'イベント抑止を解除
    Application.EnableEvents = True
    ' 画面更新の停止
    Application.ScreenUpdating = True
    MsgBox prompt:="処理が終了しました。"

End Sub

' 対象フォルダ配下（サブフォルダ）の全ファイルに対する処理（再帰処理）
Private Function loopAllFiles(targetFolder As String, fso As Object)

    Const FILE_TYPE_XLSX As String = "xlsx"
    Const FILE_TYPE_XLS As String = "xls"

    Dim folder As Object
    Dim file As Object

    'サブフォルダの数だけ再帰
    For Each folder In fso.getFolder(targetFolder).SubFolders
        Call loopAllFiles(folder.Path, fso)
    Next folder

    'ファイルの数分繰り返し
    For Each file In fso.getFolder(targetFolder).Files

        Dim extentionName As String
        extentionName = fso.GetExtensionName(file.Name)

        If LCase(extentionName) = FILE_TYPE_XLS Or LCase(extentionName) = FILE_TYPE_XLSX Then
            ' Excelファイルに対する処理
            Call execExcelFile(file)
        End If

    Next file

End Function

' Excelファイルに対する処理
Private Function execExcelFile(file As Object)

    Dim wkbook As Workbook

    Set wkbook = Workbooks.Open(Filename:=file.Path, UpdateLinks:=0, IgnoreReadOnlyRecommended:=True, ReadOnly:=True)

    Debug.Print wkbook.Name

    wkbook.Close SaveChanges:=False

End Function

参考資料

【VBA】【再帰】指定フォルダ配下（サブフォルダ含む）の全てのExcelファイルに対して、処理を行う