Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying field names from Access query
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying field names from Access query
Change + 1 to + 6
-- Regards, Dave Patrick ....Please no email replies - reply in newsgroup. Microsoft Certified Professional Microsoft MVP [Windows] http://www.microsoft.com/protect wrote: | 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 | |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Rename imported MS Access field names | Excel Discussion (Misc queries) | |||
Retreiving list of table & field names from Access into Excel using VBA | Excel Programming | |||
Excel Spreadsheet from Access. List of names changes as names are | Excel Discussion (Misc queries) | |||
Opening ,copying, access query resultsfrom Excel | Excel Programming | |||
DAO query/recordset returns with field names | Excel Programming |