テーブルの削除

テーブルの削除

Dim conStr As String, DBName As String

DBName = ThisWorkbook.Path & "\mdb\newDB.mdb"
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName

'操作対象となるmdbファイルを指定
myCat.ActiveConnection = conStr

'「商品マスタ のコピー」を削除
myCat.Tables.Delete "商品マスタ のコピー"

Set myCat = Nothing

End Sub

TablesコレクションのDeleteメソッドを実行する

実行前のテーブルリスト

実行結果

存在しないテーブルを削除しようとした時のエラーメッセージ