Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2237 / 76735

←次へ　｜　前へ→


	【80142】Re:Excel　vbaのコードをVBSに変換

HY - 18/9/11(火) 8:35 -


	引用なし

	パスワード

よろずや様、早速のご返答ありがとうございます。

Dim mya
Dim myb
Dim myc
Dim myd
Set mya = CreateObject("ADODB.Connection")
myb = "MDBファイルのフルパス"
With CreateObject("Excel.Application")
　　Set myc = .Workbooks.Open("xlsファイルフルパス").ActiveSheet.Range("A15")
　　.Visible = True
End With
With mya
　　.Provider = "Microsoft.Jet.OLEDB.4.0;"
　　.ConnectionString = "data source=" & myb
　　.Open
　　Set myd = .Execute("クエリ")
　　myc.CopyFromRecordset myd
　　Set mya = Nothing
　　Set myd = Nothing
End With

　上記は私も試していたのですが、"14行文字2、プロバイダーがみつかりません。正しくインストールされていないかもしれません。、ソースADODB.Connection"というエラーがでてしまいます。
お手数ですが、解決策をご教授できませんでしょうか？
私の環境は、Win10、Office2003です。
よろしくお願いいたします。

0 hits

▼

【80140】Excel　vbaのコードをVBSに変換 HY 18/9/10(月) 22:45