YS
2020/12/02 (水) 14:32:25
d4e4c@77b64
set mya=createobject("adodb.connection")
myb="接続先フルパス"
with createobject("excel.applcation")
set myc=.workbooks.add.activesheet.range("a1")
.visible=true
end with
mya 接続文字列
.open
set myd=.execute("クエリ名")
myc.copyfromrecordset myd
end with
此れがコードです。スマホで書いています。すみません
通報 ...