ＳＱＬ ＶＢＡ 任意に抽出先のセルを指定

strSQL = " "
strSQL = strSQL & " SELECT m.顧客番号 AS 顧客番号 , s.日付 AS 日付 , format(日付,'aaaa') as 曜日 "
strSQL = strSQL & " FROM [顧客マスタ$] m LEFT OUTER JOIN [データ$] s "
strSQL = strSQL & " ON m.顧客番号 = s.顧客番号 "
strSQL = strSQL & " where m.顧客番号 = '" & Range("f1") & "'"

Set objRS = New ADODB.Recordset
Set objRS = objCn.Execute(strSQL)

With Worksheets("集計表")
.Range("A2:b10").ClearContents
.Range("A2").CopyFromRecordset objRS　←この部分を　顧客番号Ａ２のセル
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 日付は　c3にセル
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　任意に抽出先のセルを指定したいのです。
わかる方お願い致します。

For i = 0 To objRS.Fields.Count - 1
.Cells(1, i + 1).Value = objRS.Fields(i).Name
Next
End With

No.1 ベストアンサー 回答者： bonaron 回答日時： 2018/08/17 17:46

.Range("A2").Value = objRS.Fields("顧客番号")

.Range("C3").Value = objRS.Fields("日付")
とか。