Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18865 / 76738 ←次へ | 前へ→

【63311】Re:テーブルのEXPORT
お礼  孫悟空  - 09/10/25(日) 17:43 -

引用なし
パスワード
   ▼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 さんありがとうございました。

0 hits

【63302】テーブルのEXPORT 孫悟空 09/10/25(日) 10:01 質問
【63303】Re:テーブルのEXPORT りおりお 09/10/25(日) 13:52 発言
【63304】Re:テーブルのEXPORT 孫悟空 09/10/25(日) 15:28 お礼
【63310】Re:テーブルのEXPORT Yuki 09/10/25(日) 17:03 発言
【63311】Re:テーブルのEXPORT 孫悟空 09/10/25(日) 17:43 お礼
【63308】Re:テーブルのEXPORT かみちゃん 09/10/25(日) 16:53 発言
【63312】Re:テーブルのEXPORT 孫悟空 09/10/25(日) 17:51 お礼

18865 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free