【VBA】エクセルの各シートからシート名を取得する方法

1 エクセルの各シートからシート名を取得する方法
2 サンプルソースコード
- 2.1 ソースコード
- 2.2 出力結果

エクセルの各シートからシート名を取得する方法

概要設計や詳細設計など複雑な機能の設計書の場合、十何シートある機能がたまにあります。

修正対応で変更履歴に変更のシート名を記載する運用になっている場合に、シート名は表示分しかわからないため、どのシートを変更したか確認するのが、個人的にはかなり手間です。

そんな場合に、VBAでシート取得のマクロを使うと一瞬で取得できるので便利なので紹介します。

サンプルソースコード

下記サンプルソースコードは開いているEXCELにシート「Sheet Names」を追加して、シート名を一覧で出力されます。

ソースコード

Sub GetSheetNamesAndOutput()
    Dim ws As Worksheet
    Dim newSheet As Worksheet

    Set newSheet = ThisWorkbook.Sheets.Add
    newSheet.Name = "Sheet Names"

    i = 1
    For Each ws In ThisWorkbook.Sheets
        newSheet.Cells(i, 1).Value = ws.Name
        i = i + 1
    Next ws
End Sub

Sub GetSheetNamesAndOutput()

Dim ws As Worksheet

Dim newSheet As Worksheet

Set newSheet = ThisWorkbook.Sheets.Add

newSheet.Name = "Sheet Names"

i = 1

For Each ws In ThisWorkbook.Sheets

newSheet.Cells(i, 1).Value = ws.Name

i = i + 1

Next ws

End Sub

出力結果

VBA シート名取得

エクセルの各シートからシート名を取得する方法

サンプルソースコード

ソースコード

出力結果

【ABAP】エクセルからSAPデータの取得方法（RFC_READ_TABLE）