Excel VBA テクニック集
シート名からコード名を取得

シート名からコード名を取得するマクロです。

下図で、例えばシート名「2018月次」から、コード名「Sheet4」を取得します。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。


Function CodeName_From_Sheet(Sheet_F As Object) As String
    CodeName_From_Sheet = ""
    For Each Macro_Obj In Excel_App.ActiveWorkbook.VBProject.VBComponents
        If Macro_Obj.Name = Sheet_F.CodeName Then
            CodeName_From_Sheet = Macro_Obj.Name
            Exit For
            End If
        Next Macro_Obj
    Set Macro_Obj = Nothing
End Function

なお、直接「（シート）.CodeName」で取得しようとしても、（シートオブジェクト）内にマクロがないと、うまく取得できませんでした。
上記のような関数にすると、シート内にマクロがなくてもコード名が取得できました。

Excel VBA テクニック集シート名からコード名を取得

Excel VBA テクニック集
シート名からコード名を取得