【作業効率化ツール】エクセルシート名を取得！VBAコードも公開

無料でVBAツールを公開するシリーズ。任意のエクセルシートのシート名をテキスト化する便利ツールを作ったので公開。

シート名を取得したいファイルを選択すると、全シート名が一覧で出力される。例えば、大規模なエクセルファイルで何十ものシートがあって、それぞれのシート名を把握したい場合でも、このツールを使えば手間なくシート名を取得できる。

さらにVBAコードも公開する。VBAが多少できて、ダウンロードが嫌な人はこちらも参照

Sub ExportSheetNames()
    Dim selectedFilePath As String
    Dim selectedWorkbook As Workbook
    Dim newWorkbook As Workbook
    Dim sheet As Worksheet
    
    ' ファイル選択ダイアログを表示
    selectedFilePath = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls; *.xlsx), *.xls; *.xlsx", Title:="Select Excel File")
    
    ' ユーザーがキャンセルボタンを押した場合は終了
    If selectedFilePath = "False" Then
        Exit Sub
    End If
    
    ' 選択したブックを開く
    Set selectedWorkbook = Workbooks.Open(selectedFilePath)
    
    ' 新しいブックを作成
    Set newWorkbook = Workbooks.Add
    
    Dim i As Long
    i = 1
    
    ' 選択したブックの各シート名を新しいブックに書き出す
    For Each sheet In selectedWorkbook.Sheets
        newWorkbook.Sheets(1).Cells(i, "A") = sheet.Name
        i = i + 1
    Next sheet
    
    ' 選択したブックを閉じる
    selectedWorkbook.Close SaveChanges:=False
    
    
    MsgBox "Sheet names exported successfully.", vbInformation
End Sub