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 · ベストアンサー

Range("A1").CopyFromRecordset rs
だったような・・・

お礼

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

回答No.2

rivoisu

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

お礼

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