Excel VBA質問箱 IV

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

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


2238 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   下のコードをVBSに変換したいのですが、ADOの接続の所でエラーが出てしまいます。excelにクエリの結果を表示するコードです。
Createobject関数、変数の型宣言ができない、WSHに依存等の事しかVBSに関してはわかりません。
Dim mya As ADODB.Connection
Dim myb As String
Dim myc As Excel.Range
Dim myd As ADODB.Recordset

Set mya = New ADODB.Connection

myb = "MDBファイルのフルパス"
With New 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
mya=nothing
myd=nothing


End With

この様な処に聞くのが初めてですので、不慣れな点はあるとは思いますが、
ご教授お願いいたします。
よろしくお願いいたします。

3 hits

【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 質問[未読]
【80143】Re:Excel vbaのコードをVBSに変換 よろずや 18/9/11(火) 9:02 発言[未読]
【80145】Re:Excel vbaのコードをVBSに変換 HY 18/9/11(火) 10:20 質問[未読]
【80146】Re:Excel vbaのコードをVBSに変換 よろずや 18/9/11(火) 11:09 回答[未読]
【80148】Re:Excel vbaのコードをVBSに変換 HY 18/9/11(火) 19:54 お礼[未読]

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