ExcelにSQLの結果を表示

ExcelVBAにてSQLで取得した値を貼り付けたいのですが
どのようにコードを記入すればいいんでしょうか？
ネットで調べたら下記のような参考コードを見つけたのですが
dim SQL as String
dim rs As Recordset
SQL = " SELECT SUM(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
この後
RANGE("A1")=rs
としても種々のエラーが出ます？
どうしたらよいでしょうか？
よろしくお願いします

No.1 ベストアンサー 回答者： nag0720 回答日時： 2009/09/26 06:10

Range("A1").CopyFromRecordset rs

だったような・・・

この回答へのお礼

返事遅くなってすいません
動作しました、ありがとうございます

お礼日時：2009/09/29 18:04

No.2 回答者： rivoisu 回答日時： 2009/09/29 10:55

＞としても種々のエラーが出ます？

Set rs = CurrentDb.OpenRecordset(SQL)
でエラーなら＃１さんの答えでいいと思います。
そのほかにもどこかで止まっているのですか？
DBの接続はうまくいってますか？

この回答へのお礼

返事遅くなってすいません
動作しました、ありがとうございます

お礼日時：2009/09/29 18:05