I have a fairly simple chunk of code where I create the Excel file and then using transfer spreadsheet have a number of queries put the data into worksheets of that file. I believe I have the settings right but it is not treating the 1st row as field names except in the 1st worksheet created by the acoutputquery. The Transfer is not treating the 1st row as field name
DoCmd.OutputTo acOutputQuery, "sheet1", "ExcelWorkbook(*.xlsx)", "H:\Color_ALL_Color.xlsx", False, , , acExportQualityPrint
DoCmd.TransferSpreadsheet acExport, 10, "qryStandard_color", "H:\Color_ALL_Color.xlsx", True, "Standard"
DoCmd.TransferSpreadsheet acExport, 10, "qryAchieve_color", "H:\Color_ALL_Color.xlsx", True, "Achievability"
DoCmd.TransferSpreadsheet acExport, 10, "qryPMS_color", "H:\Color_ALL_Color.xlsx", True, "PMS"
DoCmd.TransferSpreadsheet acExport, 10, "qryLAB_color", "H:\Color_ALL_Color.xlsx", True, "LAB"
MsgBox ("Outputted file to your Home Network Drive (H)" & vbCrLf & "Open File: Color_All_Color.xlsx")
DoCmd.OutputTo acOutputQuery, "sheet1", "ExcelWorkbook(*.xlsx)", "H:\Color_ALL_Color.xlsx", False, , , acExportQualityPrint
DoCmd.TransferSpreadsheet acExport, 10, "qryStandard_color", "H:\Color_ALL_Color.xlsx", True, "Standard"
DoCmd.TransferSpreadsheet acExport, 10, "qryAchieve_color", "H:\Color_ALL_Color.xlsx", True, "Achievability"
DoCmd.TransferSpreadsheet acExport, 10, "qryPMS_color", "H:\Color_ALL_Color.xlsx", True, "PMS"
DoCmd.TransferSpreadsheet acExport, 10, "qryLAB_color", "H:\Color_ALL_Color.xlsx", True, "LAB"
MsgBox ("Outputted file to your Home Network Drive (H)" & vbCrLf & "Open File: Color_All_Color.xlsx")