' カレントを起点として再帰的にファイル名を取得するSub getFileNameRecursively() Dim path As String path = ThisWorkbook.path & "\転記元ファイル" Dim rowIndex As Integer rowIndex = 1 Call getFilesRecursively(path, rowIndex)End Sub ' 再帰的に…