テーブル名を取得する【ListObjectsプロパティ】【ExcelVBA】

テーブル名を取得

作成したテーブル名を取得するには、ListObjectsプロパティを使用します。

構文
Object.ListObjects

テーブル名の変更

テーブル名がわかれば、Nameプロパティを使ってテーブル名を変更することができます。

使い方
Worksheets(“シート名”).ListObjects(“テーブル名“).Name = “新しいテーブル名“

テーブル名を変更するサンプルコード

Public Sub Sample()
  'テーブルを作成する
  Dim Tables As ListObject
  Set Tables = ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, _
                                         Source:=Range("A1:C5"), _
                                         XlListObjectHasHeaders:=xlYes, _
                                         TableStyleName:="TableStyleLight5")
    
  '■テーブル名を取得する
  Debug.Print ActiveSheet.ListObjects(1).Name
  'こちらでも可
  Debug.Print Range("A1").ListObject.Name
    
  '■テーブル名を変更する
  Worksheets("Sheet1").ListObjects("テーブル1").Name = "リスト" 
    
End Sub

注意点

• テーブル名をつけずに作成すると、順番に「テーブル1」「テーブル2」と名前がつけられています。

関連記事

• テーブルを作成する【ListObjects.Add メソッド】
• テーブルの行を操作する【ListObject.ListRowsプロパティ】