テーブル情報を取得する

Option Explicit

Private Sub CommandButton1_Click()
    Dim db As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim colm As ADOX.Column
    Dim row As Long
    
    '売上管理のACCDBファイルに接続します
    Set db = New ADODB.Connection
    db.Provider = "Microsoft.Ace.OLEDB.12.0"
    db.Open "C:\MyHP\ExcelTips\顧客管理.accdb"
    
    'Catalogオブジェクトを開く
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = db

    row = 2
    'テーブル情報の取得
    For Each tbl In cat.Tables
        If tbl.Type = "TABLE" Then
            Cells(row, 5) = tbl.Name
            row = row + 1
            'フィールド情報の取得
            For Each colm In tbl.Columns
                Cells(row, 6) = colm.Name
                row = row + 1
            Next
        End If
    Next

    '終了処理
    Set colm = Nothing
    Set tbl = Nothing
    Set cat = Nothing
    Set db = Nothing
End Sub