Excel VBA質問箱 IV

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

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


24 / 13190 ツリー ←次へ | 前へ→

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

【80141】Re:Excel vbaのコードをVBSに変換 よろずや 18/9/10(月) 23:33 回答[未読]
【80142】Re:Excel vbaのコードをVBSに変換 HY 18/9/11(火) 8:35 質問[未読]

【80141】Re:Excel vbaのコードをVBSに変換
回答  よろずや  - 18/9/10(月) 23:33 -

引用なし
パスワード
   環境が違うので試してませんが...

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 = "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

【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です。
よろしくお願いいたします。

24 / 13190 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free