![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
EXCELからORACLEのテーブルをselectしたいのですが、うまくいきません。
ご指導のほどお願いいたします。
下記サンプルをネット('Access VBA Tips)で探し実行しました。
Access版だからいけないのでしょうか?
adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;"
のオープン・クローズは正常終了します。
Set adoCON = Application.CurrentProject.Connection
が実行できません。
実行時エラー 438
オブジェクトはこのプロパティまたはメソッドをサポートしていません。
が出てしまいます。
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
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
#ORACLEの環境がないので取り敢えず繋ぎのレスで。
http://www.happy2-island.com/access/gogo03/capte …
と
http://www.happy2-island.com/access/gogo03/capte …
を組み合わせちゃったわけですね。
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/excel2oracl …
http://milky.way-nifty.com/nuzou/2003/12/excelvb …
http://www.kihara.net/tips/vba/excel/ora_xls.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルマクロエラー「'Cells'...
-
VBAで Set wb = Sheets(1).Cop...
-
Excelでフィルタをかけると警告...
-
エクセルVBAでcode128のバー...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
[VBA]CDOメッセージ送信エラー
-
Shell.ApplicationのNameSpace...
-
PowerPointVBAでスライドマスタ...
-
ある文字列が全て数字であるか...
-
VBAで作成するメール(開封確認...
-
【VB】【エクセル操作】 SaveAs...
-
VBAについてです。 初心者です...
-
VBScriptでのExcelブックのプロ...
-
VBAからPDFファイルにパスワー...
-
VBで引数にDictionaryオブジェ...
-
パワーポイント filedialogでフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
VBAで既に開いている別アプリケ...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
VBAからPDFファイルにパスワー...
-
VBScriptでファイルの日時順(降...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで2つの画像を比較...
-
PowerPointVBAでスライドマスタ...
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
-
VBAについてです。 初心者です...
-
VBAで作成するメール(開封確認...
おすすめ情報