|
▼孫悟空 さん:
>私もdim文から外してから試みましたが、ダメでした。
外さずに型指定をチャンとしましょう。
参照設定をしてあるなら
acExport,acTableを使用してもOKです。
又下記のように型指定をしてもよいですね。
'Dim acApp As Access.Application
'Set acApp = New Access.Application
エラーの内容からだとMDBファイルがthisworkbookの
ディレクトリにあるか確認してみましょう。
これで動くと思います。
Sub tblExport()
Dim acApp As Object
Set acApp = CreateObject("Access.Application.9")
acApp.OpenCurrentDatabase ThisWorkbook.Path & "\db1.mdb"
acApp.DoCmd.TransferDatabase 1, "Microsoft Access", _
ThisWorkbook.Path & "\db2.mdb", 0, "T_Add1", "T_Add1"
acApp.CloseCurrentDatabase
End Sub
|
|