VBA マクロ 指定したフォルダ内の全Excelのシート名を表示

指定したフォルダ内の
全Excelファイルのシート名を抽出したいと考えております。

またそのデータをワークシート上に表示したいと思います

ソースは一通り教えていただけると嬉しいです。

どうぞよろしくお願いいたします。

No.1 回答者： siffon9 回答日時： 2015/10/08 18:13

こんなかんじでしょうか。

A列にファイル名、B列にシート名が書き込まれます。
マクロを実行するExcelファイルは指定フォルダとは別の場所に置いて下さい。

Sub listAllSheetNames()
Dim path As String
Dim fileName As String
Dim wb As Workbook
Dim sht As Worksheet

Dim row As Integer
Dim col As String

path = "C:\AAA\BBB\" '指定フォルダ
fileName = Dir(path & "*.xls?")
row = 1
col = "B"
Do While fileName <> ""
Cells(row, col).Offset(0, -1).Value = fileName
Set wb = Workbooks.Open(fileName:=path & fileName)
For Each sht In wb.Worksheets
ThisWorkbook.ActiveSheet.Cells(row, col).Value = sht.Name
row = row + 1
Next
wb.Close savechanges:=False
fileName = Dir()
Loop
End Sub