Excel - シート一覧 - PowerShell

1.　概要

2.　操作

3.　参考サイト

1.　概要	

　以下、マクロで、シート一覧を作成して、ブックの先頭に一覧を記述したシートを追加する方法です。

2.　操作

　対象のブックを開いた状態で、Alt+F11。
　すると「VBA」エディタが開きます。
　メニューから「挿入」→「標準モジュール」
　コードエディタが開きますので、下記を記述します。


Sub ListSheetNames()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim i As Long

    ' 一覧を出力するための新しいシートを追加
    Set newWs = Worksheets.Add(Before:=Worksheets(1))
    newWs.Name = "シート名一覧"

    newWs.Cells(1, 1).Value = "シート名"

    ' 全シートの名前をループ処理で書き出し
    i = 2
    For Each ws In ThisWorkbook.Worksheets
        ' 自分自身（一覧シート）は除外
        If ws.Name <> newWs.Name Then
            newWs.Cells(i, 1).Value = ws.Name
            i = i + 1
        End If
    Next ws

    MsgBox "シート名の一覧を作成しました。", vbInformation
End Sub


　F5 もしくは「実行」ボタン「」で実行すると。
　ブックの先頭に、「シート名一覧」というシートが作成され、シート名の一覧が出力されています。

3.　参考サイト

　本ページは、「Gemini」伍長を参考にさせていただきました。