Excelファイルのシート名を全て取得するVBAコードのサンプルです
Private Sub ExtractExcelSheetNames()
Dim wb As Workbook 'ワークブック
Set wb = Application.Workbooks("Sample.xlsx") 'ワークブックをセット
Dim ws As Worksheet 'ワークシート
'ワークブックのワークシート名を全て取得する
For Each ws In wb.Worksheets
Debug.Print ws.Name
Next
End Sub上記の例では「Sample.xlsx」というファイルを開いた状態で実行するとVBE（ビジュアル・ベーシック・エディター）上のイミディエイトウィンドウにワークシート名を表示します。
