[[20090502193647]]　『EXCELのマクロを使用してaccessのデータベースを梶x（初心者Ｈ）　ページの最後に飛ぶ

『EXCELのマクロを使用してaccessのデータベースを開く方法』（初心者Ｈ）

過去の質問で同じ様なのがありましたので下記のとおりマクロを記述して実行しました。

 「明細.mdb」は起動しましたがテーブルの「明細」は開きませんでした。テーブルを開く
 方法を教えて下さい。

【記述内容】

 ===========================================================================
 Private Sub access_Click()

 On Error GoTo errhandler

 Dim Res As Variant

 MsgBox "プログラムを起動します"

 Res = Shell("C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE D:\HOME\br70005\My Documents\明細.mdb", vbNormalFocus) 
 If Res <> 0 Then
  MsgBox "プログラムを起動しました"
 Else
  GoTo errhandler
 End If
 Exit Sub
 errhandler:
  MsgBox "プログラムが存在しないか、システムに異常があります"
 End Sub
=========================================================================

 こんにちは。かみちゃん　です。

 > 「明細.mdb」は起動しましたがテーブルの「明細」は開きませんでした。

 テーブル「明細」を開いて何がしたいのでしょうか？
 私も仕事で、ExcelからAccessのテーブル、クエリを操作していますが、
 方法は、いろいろとあると思います。
 私は、ADOやDAOを使っています。
 以下が参考になるかと思います。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_130.html

 (かみちゃん)
 2009-05-02 21:35

 #またまた衝突。

 やりたいことは、Access のファイルを開くことですか？
 mdb からデータをEXCELに取り込み、利用したいのであれば、DAO 等を利用します。
 詳細は、ACCESS よりのお話なので、
http://www.accessclub.jp/dao/index.html
 がご参考になるかと思います。

 「単に開きたいだけ」ということでしたら、失礼しました。
 (Mook)

 明細.mdbのマクロで、テーブル：明細を開くマクロを作成し”明細”としておく。

 Sub try()
   Dim Res
   Res = Shell("MSACCESS.EXE D:\HOME\br70005\My Documents\明細.mdb /x 明細", 1)
 End Sub

 としたら、「明細.mdb」が開いた時に「テーブル：明細」が開くと思いますが、
 そう言うことなのかな？⇒Excel　&　Access2002 で検証。

 （じゅんじゅん）

(かみちゃん)・(mook)さん・（じゅんじゅん）さん、ありがとうございました。

 「ACCESS」がまったくの初心者でやりたい事は「明細」テーブルを開いて「EXCEL」側の
 マスタデータとマッチングして必要な項目・レコードを「EXCEL」表に出力したいのです。
 「EXCEL」のマクロで可能でしょうか？ （初心者Ｈ）

 >マスタデータとマッチングして必要な項目～
 であれば、前回のはスル～して下さい。

http://www.asahi-net.or.jp/~ef2o-inue/kihon/sub01_05_22.html

 ExcelVBAがわかるのであれば、別シートにデータを取り込んでから該当シートと比較し
 結果を求めては如何でしょうか？

 あとは”かみちゃんさん””Mookさん”の方法で取り込むとか。
 （じゅんじゅん）

 こんにちは。かみちゃん　です。

 > 「明細」テーブルを開いて「EXCEL」側のマスタデータとマッチングして必要な項目

 もう少し具体的なマッチング方法を説明していただければ、どのようなExcelVBAで対処すればいいのか、
 サンプルは示すことができます。

 例示として以下のような感じなのでしょうか？

 Acceess 「明細」 テーブルのフォーマットのサンプル

 コード 金額   
 001     100
 002     200
 003     300

 Excel 「マスター」シート
      A         B
 1 コード  コード名称
 2 001     名称１
 3 002     名称２
 4 003     名称３
 5

 Excel 「結果」シート  ⇒　期待している結果？ A列、C列はAccessよりB列は、Dictionaryオブジェクト等で、Excelより抽出
      A         B       C
 1 コード  コード名称  金額
 2 001     名称１       100
 3 002     名称２       200
 4 003     名称３       300
 5

 もしくは、「マスタ」シートもAccess側に一旦インポートして、Access内でリレーションして、
Excelへ抽出するほうが簡単かもしれません。
 私なら、そのようにします。

 (かみちゃん)
 2009-05-07 23:50

　----------------------------------------------------------------

 (かみちゃん)・（じゅんじゅん）さん、アドバイスありがとうございました。 
 とりあえず今回は、一旦、Access側でテキストファイルにエクスポートして
 「EXCEL」のマクロで処理しました。今後、Accessを勉強してより良い方法で
 処理しようと思います。またアドバスをよろしくお願いします。
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（初心者Ｈ）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2009-05-15

コメント返信：

[ 一覧(最新更新順) ]

[[20090502193647]] 『EXCELのマクロを使用してaccessのデータベースを梶x（初心者Ｈ） ページの最後に飛ぶ

[[20090502193647]]　『EXCELのマクロを使用してaccessのデータベースを梶x（初心者Ｈ）　ページの最後に飛ぶ