EXCELからORACLEのテーブルをselectしたいのですが、うま

質問

EXCELからORACLEのテーブルをselectしたいのですが、うまくいきません。
ご指導のほどお願いいたします。
下記サンプルをネット（'Access VBA Tips）で探し実行しました。
Access版だからいけないのでしょうか？
adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;"
のオープン・クローズは正常終了します。
Set adoCON = Application.CurrentProject.Connection
が実行できません。

実行時エラー　４３８
オブジェクトはこのプロパティまたはメソッドをサポートしていません。

が出てしまいます。

Excelではだめなのでしょうか？
教えてください。
よろしくお願いいたします。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー－－－－－－－－－－－－－－－
Sub prcAdoOracleODBC()
'Access VBA Tips
'4.3 ORACLEのDBを開く・閉じる／ODBCを使う
Dim adoCON As New ADODB.Connection
Dim adoRS As ADODB.Recordset
'?ADOを使いADRSODBCというデータソースをオープンします
adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;"
'データベースのオープン（データベースオブジェクトの作成）
Set adoCON = Application.CurrentProject.Connection
'レコードセットの作成(SELECT文の実行)
Set adoRS = adoCON.Execute("select * from casUR")
'レコードセットのクローズ
adoRS.Close
'データベースのクローズ
adoCON.Close
'オブジェクト変数のクリア
Set adoRS = Nothing
Set adoCON = Nothing
End Sub

回答No.1

end-u

#ORACLEの環境がないので取り敢えず繋ぎのレスで。

http://www.happy2-island.com/access/gogo03/capter00403.shtml
と
http://www.happy2-island.com/access/gogo03/capter00303.shtml
を組み合わせちゃったわけですね。
Access VBA Tipsですから
>Set adoCON = Application.CurrentProject.Connection
ここのApplicationとはAccessの事を指します。
ExcelにはCurrentProjectオブジェクトはありませんからエラーです。

adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;"
ここでデータベースをオープンしてますから
>'データベースのオープン（データベースオブジェクトの作成）
>Set adoCON = Application.CurrentProject.Connection
不要です。

また、検索すればExcelでのサンプルもあるわけですからそちらを参照したほうが良いかも。
http://www.atmarkit.co.jp/fdb/rensai/excel2oracle02/excel2oracle02_1.html
http://milky.way-nifty.com/nuzou/2003/12/excelvbaadoorac.html
http://www.kihara.net/tips/vba/excel/ora_xls.html