Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

957 / 9994

←次へ　｜　前へ→


	【12343】Re:別ファイルのテーブルを別ファイルに転送

hatena - 13/6/21(金) 23:04 -


	引用なし

	パスワード

▼jakosan さん： >A.mdbというファイルのモジュールにtensou()という関数を書いたファイルを開いている状態で、B.mdbにあるbbbというテーブルをC.mdbに転送するVBAコートはつくれないでしょうか。 >B.mdbとC.mdbは開かないで、A.mdbもモジュールだけでやるという条件です B.mdbとC.mdbは、C:\Test にあるとして、 Public Sub tensou() 　　Dim appAccess As Access.Application 　　　　Set appAccess = CreateObject("Access.Application") 　　appAccess.OpenCurrentDatabase "C:\Test\C.MDB" 　　appAccess.DoCmd.TransferDatabase acImport, "Microsoft Access", _ 　　"C:\Test\B.MDB", acTable, "bbb", "bbb" 　　　　appAccess.Quit 　　Set appAccess = Nothing End Sub