|
▼Yuki さん:
>外さずに型指定をチャンとしましょう。
ですね。
いつもは option explicitを欠かさず記入しています。
>参照設定をしてあるなら
>acExport,acTableを使用してもOKです。
参照設定確認しました。
恥ずかしながらAccess Applicationへの参照設定ができていませんでした。
>又下記のように型指定をしてもよいですね。
>'Dim acApp As Access.Application
>'Set acApp = New Access.Application
なるほど・・・後でよく調べます。
反省と共にすっきりです。
>これで動くと思います。
>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
見事に動きました。
ちなみに参照設定をしたら、小生のプログラムでも動きました。
Yuki さんありがとうございました。
|
|