M
mike.wilson8
In the code below, the field names from the query start on row 9, col
A. How do I tweak the code to where the field name header section
starts on row 9, col F?
Set qry = db.QueryDefs("Q-PRE_ENDTOEND_CROSSTAB BY DAY")
Set rec = qry.OpenRecordset
Sheets("Sheet1").[f10].CopyFromRecordset rec
' Set up column headers with field names
For i = 0 To rec.Fields.Count - 1
Cells(9, i + 1).Value = rec.Fields(i).Name
' Cells(9, i + 1).Font.Bold = True
A. How do I tweak the code to where the field name header section
starts on row 9, col F?
Set qry = db.QueryDefs("Q-PRE_ENDTOEND_CROSSTAB BY DAY")
Set rec = qry.OpenRecordset
Sheets("Sheet1").[f10].CopyFromRecordset rec
' Set up column headers with field names
For i = 0 To rec.Fields.Count - 1
Cells(9, i + 1).Value = rec.Fields(i).Name
' Cells(9, i + 1).Font.Bold = True