質問: nothing end sub
回答: #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