![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Excel(エクセル) VBAのエラーが直せません 4 2023/06/12 22:10
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
データベースの接続ができない
-
PHP+ACCESSのデータベース接続...
-
VB6.0とaccessのDBを接続する
-
UPDATE時にSETしたい日本語文字...
-
VB6.0でSQLServerへ・・・Recor...
-
VBA 変数名に変数を使用したい。
-
vba フィルター 複数条件 3つ以...
-
ACCESS2010 実行時エラー 2766
-
C#でbyte配列から画像を表示さ...
-
VB.NETの配列にExcelから読み込...
-
『列名 '担当者CD' があいま...
-
テーブルのデータ型の変更がで...
-
C# DataTableに最後に追加した...
-
VBAでアクセスDBからデータの取...
-
Dir関数で読み取り順を操作でき...
-
2つ目のレコードの値を取得す...
-
AccessからExcelへエクスポート...
-
【C#】textBoxの指定行のデータ...
-
VBとアクセスでSQL文に変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
データベースの接続ができない
-
複数SQL発行について
-
ExcelVBAでのAccessデータベー...
-
初心者ですデータベースの形式 ...
-
VB6.0でSQLServerへ・・・Recor...
-
VB6.0とaccessのDBを接続する
-
StrutsでDataSourceの切り替え
-
名前'dbOpenDynaset'は宣言され...
-
VBSでADOを使ってaccessのテー...
-
vb.netでデータベース(Access)...
-
ASP.NET(VB.NET)でADO.NETを使...
-
関数のパラメーターと戻り値に...
-
OracleDataReaderについて…
-
MDBをADO接続でINSERT・UPDATE...
-
VB6.0でアクセス2000...
-
VB2005でmdbに接続するには?
-
ListviewにDB内容を表示し方に...
-
VB 2010 Expressでのデータベー...
おすすめ情報