Excel VBA質問箱 IV

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

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


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

2237 / 76734

←次へ　｜　前へ→


	【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