アクセスでテーブル名を所得したいけど。。。 (ID:111789)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして、なにぶん超素人ですが、データベースを作って見たいのですが。。。。 以下のプログラムを作成したのですが。。。 コンパイルすると、Dim db As Database のところで、"コンパイルエラー 不正なモジュールです"と出てしまいます。なぜ？前にプログラムを組んだときはそんなのなかったのに。 ちなみに、参照設定はちゃんと行っています。ひょっとして、 凡ミス？だれか見当つきませんか？ Public Sub CategoryA2_Get() Dim db As DataBase '←ここで、"コンパイルエラー 不正なモジュールです"と表示される Dim strTbl As String 'オブジェクト変数の設定 Set db = _ DBEngine.Workspaces(0).OpenDatabase("C:\_MyWork\設備\_JIGXXXX_Testプログラム\Test プログラム\DataBase\WindowInt.mdb") 'テーブルの TableDef オブジェクトの数の回数でループする For i = 1 To db.TableDefs.Count '取得した TableDef オブジェクトが [MSys/USys] 以外で 'はじまるの名前をセルに入力する strTbl = MyDB.TableDefs(i - 1).Name If Left$(strTbl, 4) <> "MSys" And _ Left$(strTbl, 4) <> "USys" Then ThisWorkbook.Sheets("sheet1"). _ Range("a1").Offset(j, 0).Value = strTbl j = j + 1 End If Next End Sub