Excel VBA質問箱 IV

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

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


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

2239 / 76735

←次へ　｜　前へ→


	【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

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

1 hits

▼

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