|
よろずや様、早速のご返答ありがとうございます。
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です。
よろしくお願いいたします。
|
|