ExcelでAccessのテーブルを作る。

ExcelでAccessのmdbファイルとテーブルを作る必要が出てきたのでやってみました。
参照設定から「Microsoft ADO Ext. 2.8 for DDL」を追加しておきます。

    Dim cat As ADOX.catalog
    Dim tbl As ADOX.Table
    
    
    ' カタログオブジェクト
    Set cat = New ADOX.catalog
    
    ' 以下のコードは Access2000 形式のファイルを作成します
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\db2000.mdb;" & _
               "Jet OLEDB:Engine Type=5;"
    
    
    Set tbl = New ADOX.Table
    tbl.Name = "tbl_sample"
    Set tbl.ParentCatalog = cat
    
    With tbl
        .Columns.Append "ID", adInteger
        .Columns.Item("ID").Properties("AutoIncrement") = True '
        .Columns.Append "名前", adVarWChar, 50
        .Columns.Append "生年月日", adDate
    End With

    cat.Tables.Append tbl
    Set cat = Nothing

で、このサンプルを実行するとCドライブ直下にdb2000.mdbが作成されます。