Microsoft Excel VBA - ブックに含まれるシート名を取得する方法

◆概要

このページは、Excel VBAでオープンされているブックに含まれるシート名を取得する方法について記載しています。

◆Sample

次の例では、アクティブになっているブックに含まれるすべてのシート名をメッセージボックスに表示します。 

Sub GetObjName()

    Dim mySheet As Object
    Dim strBookName As String
    
    '変数を初期化
    strBookName = ""

    For Each mySheet In ActiveWorkbook.Sheets
        strBookName = strBookName + mySheet.Name + vbLf
    Next mySheet
    
    'メッセージボックスに表示
    ret = MsgBox("このブックに含まれるワークシートは以下のとおりです。" _
        + vbLf + vbLf + strBookName, vbOKOnly + vbInformation, _
        "ワークシート名")

End Sub
　　


▼ページトップへ