access2000のテーブルデータをexcelの指定したsheetのcellに貼り付けたい！

質問

仕事で困っています！教えて下さい。
Accsess2000の指定したテーブルデータをExcel2000の指定したbookのsheetのcell位置に貼り付けたいのですがVBAでロジックを組む方法がわかりません。
ぜひぜひ教えて下さい。お願いします。

回答No.2

Tetsuro_M

ＥＸＣＥＬシートをＡＣＣＥＳＳのリンクテーブルとして、そこにデータを更新するのもひとつの手ではないでしょうか？
ＥＸＣＥＬシートの行のどこかに連番をふっておいて
それをＡＣＣＥＳＳ上ではプライマリーキーとすれば
かなり込み入った更新もできます。
リンクテーブルなら、ＡＣＣＥＳＳ上ではひとつの
テーブルですからＥＸＣＥＬシートという意識をせずに
扱えます。　
お役にたてましたら幸いです。

回答No.1

ARC

ExcelでAccessのデータを使うときは、[データ]-[外部データの取り込み]を使うと簡単ですよね。

加えて、「外部データ範囲のプロパティ」で、「ファイルを開くときにデータを更新する」にチェックをつけておくと、いつでも新鮮なデータを得ることができるんですが、こういうやり方では ninaさんのご意向に添えませんか？

私も仕事で時々AccessとExcelを連携させる必要が生じるのですが、よほどのことが無い限り、上記のようなやり方をとっています。

よほどのことがある場合(EXCEL上でパラメータを指定しなくてはならない場合など)は、適当なデータベースオブジェクト(DAOがいいかも)を使います。

'参照設定で「DAO」を登録している必要あり
Dim db As DAO.Database
Dim RST As DAO.Recordset
Set db = Workspaces(0).OpenDatabase("XXX.mdb")
Set RST = db.OpenRecordset("SELECT * FROM TableName;")
Do Until RST.EOF
　　'適当にセルに代入
　　RST.MoveNext
Loop

こんな感じですか。

QueryTableオブジェクトのRecordsetプロパティとかをうまく使えば、Do～Loop の部分は省略できるかも。

分からない部分があれば、補足にてご質問ください。