エクセルからAccessのIDでを検出させセル指定で抜き出し

質問

お世話になります
可能かどうかも分からず質問します。
一般的にはAccessからエクセルへインポートとなるのですが
便利上Access、DBをIDで検出させ、必要な列だけセル指定でエクセルにインポートしたいのですが、エクセル側から可能ですか？
又、方法、関連サイトなどありましたら宜しくお願いします。

回答No.7

KenKen_SP

> やはりIDを検索させ列名1はA1へ、列名2はB2へ、列名3はF1へ
> 見たいな指定が望ましいのですがだめですか？

　# だめではないですけど、そういった具体的な仕様は初めて
　# でてきたのでは？
　# というのは横においておいて。

何となくそういった希望がでてくると思いましたので、#6 で
参考 URL を紹介いたしました。

そのページの中段に、データベースから取得したデータを項目
ごとに任意のセルに書き込むコードが掲載されています。

ただ、抽出されるデータ件数が複数の場合はどうするのです？
２件目のデータはどこに書き込むのでしょうか？
それとも、抽出されるデータは常に 1 つということが保証
されてる？

こういった説明が不足しているように思います。

コードは抜粋ですが、こんな感じでしょう。

　　' // データ抽出できたか？
　　If Rs.EOF And Rs.BOF Then
　　　　' // 該当データがなかった場合
　　　　MsgBox "該当データがありません", vbCritical
　　Else
　　　　' // 該当データがあった場合
　　　　With ThisWorkbook.Worksheets("Sheet1") ' <-- 書き込むシート名
　　　　　　.Range("A1").Value = Rs.Fields("列名1").Value
　　　　　　.Range("B2").Value = Rs.Fields("列名2").Value
　　　　　　.Range("F1").Value = Rs.Fields("列名3").Value
　　　　　　.Range("G5").Value = Rs.Fields("列名4").Value
　　　　　　.Range("G6").Value = Rs.Fields("列名5").Value
　　　　End With
　　End If

お礼

遅くなり申し訳ありません
ありがとうございます
お蔭様で、ようやく思い描いていたとおり完成しました。
しかしユーザー登録ボタンでてこずってます。
できればご教授お願いしたいのですが、、、、
質問違いで不快な気持ちになる場合は取りやめます。
どちらにせよ助かりましたありがとうございます

補足

すみませんはじめに言っておけばよかったですね
以後きおつけます。
申し訳ないのですが最後にもう一つお伺いしたいのですが質問違いになるのですが、、、
問題点
ボタン登録の件ですが1.xlsでお伺いしたマクロを作成し2.xlsで実行をかけると1.xlsが勝手に立ち上がり1.xlsに入力されます。

明細
現状ではモジュール1に
Sub フォーム()
UserForm1.Show
End Sub
を作成し
ユーザー設定コマンドのマクロボタンを作成しモジュール１を登録しています。
実行環境はワークシート名は変わらないですがBook名は毎回変わります

方法
作成したフォームをユーザー設定ボタンでマクロどの名前のxlsでも実行可能にしたい。（ワークシート名は変わりません）

質問違いで不快な思いをなされる場合は質問を取りやめます
すみません