Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'- HEADINGS TO SHEET
For F = 1 To NewProjectList.Fields.Count
Set MyField = NewProjectList.Fields(F)
ActiveSheet.Cells(1, F).Value = MyField.Name
Next
OPTION BASE 1
Set rst = dbs.OpenRecordset(sQuery) 'set query results = recordset objects
For iCol = 1 To [b]rst.Fields.Count[/b]
myArray(iCol) = rst.fields(iCol).name
next iCol