oracleとexcelのADOによる連携について

質問

お世話になります。
excelからADOでoracleのデータベースにある
テーブルの必要なデータのみを抽出してexcelに
書き出そうとしています。

excelのvbaコードで、まず、ADOコネクションの生成として、
「cn.Open "Provider=OraOLEDB.Oracle;Data Source=" & "DB名" & ";User ID=hpsuser;Password=○○○;", "○○○", "○○○"」と書き、
ADOレコードセットの生成で、
「 rs.Open "～(1)～", cn, adOpenDynamic, adLockOptimistic, adCmdText」
と書いていますが、上記「～(1)～」の部分がかなり長いクエリ文になっているからなのか、
エラーがかかってしまいます。
単純なテーブルのデータを呼び出す事しかできないのか、又、
長いクエリ文のデータを抽出したい場合どの様にしたら良いのか、
どなたかご親切な方、ご教示頂けます様、宜しくお願いいたします。

回答No.1

anmochi

＿＿＿＿＿＿＿
Dim rs As New ADODB.Recordset
rs.Open "～(1)～", cn, adOpenDynamic, adLockOptimistic, adCmdText
￣￣￣￣￣￣￣
を
＿＿＿＿＿＿＿
Dim rs As ADODB.Recordset
Set rs = cn.Execute("～(1)～")
￣￣￣￣￣￣￣
に変えてみるとどうでしょう？