Excel VBA質問箱 IV

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

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


18860 / 76732 ←次へ | 前へ→

【63310】Re:テーブルのEXPORT
発言  Yuki  - 09/10/25(日) 17:03 -

引用なし
パスワード
   ▼孫悟空 さん:
>私も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

1 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 お礼

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