VBA初心者です。
エクセルのVBAでデータベースA.mdbのテーブルAをデータベースb.mdbにインポートするプログラムお教えて下さい。
'================================================
sub インポート ()
Set cn = New Connection'データベース接続
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source="C:\A.mdb"
●ここにPG書くような感じだと思いますが。
cn.Close: Set cn = Nothing'後処理
End Sub
'================================================
もし難しい場合、アクセスのVBAでインポートをするが、この実行をエクセルでするよなのでもいいです。この場合は、インポートされるb.mdb側のプログラムをエクセルで実行するようにしたいです。(A.mdbは多数あるため、変更が大変なため)
よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
質問は、最近仕入れたことを書き並べているような感じだが、
簡単に
(1)エクセル側で
(2)マクロの記録モードにして
(3)ファイルー開くーファイルの種類で.mdbを指定ーファイル指定
でテーブルを指定
でデータが持ってこれた。
記録は
Sub Macro1()
Workbooks.OpenDatabase Filename:= _
"C:\Documents and Settings\xxxx\My Documents\db2.mdb", CommandText:=Array( _
"体重表"), CommandType:=xlCmdTable
End Sub
新しいブックが作成されるが、これでどうですか。
ほか OpenDatabase メソッドについてWEB照会してみること。
エクセルのMSクエリでもできると思う。
(いまの私の場合エクセルのMSクエリが使えるようにしてしまっているのだが、これが効いていて、質問者の場合使えるようにしないと、ファイルー開くーmdbがうまくいかないかも知れない。大丈夫と思うが。
うまくゆかない場合はMSクエリでWEB照会して勉強してください。)
この回答への補足
回答ありがとうございます。
実行したいのは、エクセルにデータをもってくるのではなく、アクセルのテーブルを別のアクセルにインポートです。アクセスのVBAを使用すると簡単ですが、エクセルの計算結果と合わせて多くの処理をするためエクセルのVBAで処理したいという内容です。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
最近、いつ泣きましたか?
泣いてストレス発散! なんて言いますよね。 あなたは最近いつ、どんなシチュエーションで泣きましたか?
-
【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
2024年は「名探偵コナン30周年」「涼宮ハルヒ20周年」などを迎えますが、 あなたが「もうそんなに!?」と驚いた○○周年を教えてください。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
「お昼の放送」の思い出
小学校から中学校、ところによっては高校まで お昼休みに校内放送で、放送委員が音楽とかおしゃべりとか流してましたよね。 最近は自分でもラジオができるようになって、そのクオリティもすごいことになっていると聞きます。
-
ExcelVBAの繰り返し処理でwebクエリの取込みできますか。
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBSでADOを使ってaccessのテー...
-
VB6.0でSQLServerへ・・・Recor...
-
VBでmdbファイルの抽出
-
【VB】コンボボックスにデータ...
-
VBA 変数名に変数を使用したい。
-
SQLを発行とは?クエリの作成と...
-
ExcelVBAからAccessMDB内のテー...
-
Accessのフィールド名に半角括...
-
DataTableに特定のフィールドが...
-
VBとアクセスでSQL文に変...
-
ファイル名の一部削除について
-
マルチバイト混在の文字列整形
-
『列名 '担当者CD' があいま...
-
エクセルでXY座標に並べられた...
-
VB6のメモリ解放に関して
-
EXCELのVBAでLenB関数について
-
2つ目のレコードの値を取得す...
-
VB.NETで1→A、2→B、26→Z、27→AA...
-
vba フィルター 複数条件 3つ以...
-
OutOfMemoryExceptionの回避策...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
初心者ですデータベースの形式 ...
-
名前'dbOpenDynaset'は宣言され...
-
データベースの接続ができない
-
複数SQL発行について
-
VB6.0とaccessのDBを接続する
-
OracleDataReaderについて…
-
VB6.0でSQLServerへ・・・Recor...
-
ListviewにDB内容を表示し方に...
-
ExcelVBAでのAccessデータベー...
-
vb.netでデータベース(Access)...
-
ASP.NET(VB.NET)でADO.NETを使...
-
VB6.0でアクセス2000...
-
レンタルサーバでのDB接続の件
-
エクセルVBAでアクセスのテーブ...
-
VBでAccessにSQL文を実行して値...
-
ASPでoracleの接続について教え...
-
MSFlexGridでデータの追加の方...
-
VBSでADOを使ってaccessのテー...
おすすめ情報