VBA 全シート名を取得する

VBA 全シート名を取得する

VBAで、全シート名を取得するコードを記述してます。

環境

  • OS windows10 64bit

全シート名を取得

全シート名を取得するには、「Sheets.Count」でシート数をカウントして、存在する数だけ「Sheets().Name」
で名前を取得します。

適当なボタンを用意して、以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    Dim i As Long
    
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
    
    
End Sub

実行してみます。

取得されていることが確認できます。

「For Each」を使用した場合は、以下のようになります。

Private Sub CommandButton1_Click()

    Dim i As Long
    
    i = 1
    
    For Each sheetName In Worksheets
    
        Cells(i, 1) = sheetName.Name
        i = i + 1

    Next    
    
End Sub