【VBA】テーブル化された表の、指定した列の列名を取得する

テーブル化された表の
　・指定した列の列名を取得
できます！

VBAコード
実行結果
参考①
参考②
参考③

VBAコード

ここでは例として、
　・シート「data」上の
　・テーブル化された表「productテーブル」の
　・3列目の列名を取得
します。

Option Explicit

Sub sample()
    
    Dim column3Name As String
    
    'テーブル化された表の3列目の列名を取得
    column3Name = Worksheets("data").ListObjects("productテーブル").ListColumns(3).Name
        
    MsgBox ("3列目の列名は『" & column3Name & "』です。")
    
End Sub

「ListObjects(“XXX”)」で、「ListObjectオブジェクト」を取得します(8行目)。

「ListObjectオブジェクト」の「ListColumns」プロパティにより、「ListColumn」オブジェクトを取得します(8行目)。
※「LstColumns」プロパティの引数に「3」を指定することで、3列目の「ListColumn」オブジェクトを取得しています。

「ListColumn」オブジェクトの「Name」プロパティにより、指定した列の列名を取得します(8行目)。