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】コンボボックスにデータ...
-
データベースの接続ができない
-
OracleDataReaderについて…
-
VB6.0でSQLServerへ・・・Recor...
-
StrutsでDataSourceの切り替え
-
ASP.NETにおいて単純にオラクル...
-
VB6.0とaccessのDBを接続する
-
ExcelVBAでのAccessデータベー...
-
複数SQL発行について
-
PHP+ACCESSのデータベース接続...
-
ASP.NET(VB.NET)でADO.NETを使...
-
MDBをADO接続でINSERT・UPDATE...
-
VBA 変数名に変数を使用したい。
-
【C#】textBoxの指定行のデータ...
-
エクセルでXY座標に並べられた...
-
構造体配列の特定のメンバーをF...
-
Dir関数で読み取り順を操作でき...
-
DataTableに特定のフィールドが...
-
VB.NETで1→A、2→B、26→Z、27→AA...
-
CString型 全角半角を意識せず...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
複数SQL発行について
-
初心者ですデータベースの形式 ...
-
VB6.0とaccessのDBを接続する
-
VB6.0でSQLServerへ・・・Recor...
-
データベースの接続ができない
-
PHP+ACCESSのデータベース接続...
-
名前'dbOpenDynaset'は宣言され...
-
ListviewにDB内容を表示し方に...
-
vb.netでデータベース(Access)...
-
OracleDataReaderについて…
-
VBSでADOを使ってaccessのテー...
-
VBでAccessにSQL文を実行して値...
-
VBでmdbファイルの抽出
-
PHPでのsqlite_close();について。
-
Accessを編集するとASPで接続で...
-
レンタルサーバでのDB接続の件
-
[ASP]エラー プロバイダが指...
-
VB2005でmdbに接続するには?
おすすめ情報