joshandsony
Registered User.
- Local time
- Today, 02:03
- Joined
- Feb 19, 2009
- Messages
- 59
Hello: I have created this code, but I need to change it to multiple sheets and don't know how. Can someone please offer a little assistance?
'------------------------------------------------------------
' Export_To_Excel
'
'------------------------------------------------------------
Function Export_To_Excel()
On Error GoTo Export_To_Excel_Err
DoCmd.OpenQuery "Non-Confirmed Export Query", acViewNormal, acEdit
DoCmd.OutputTo acOutputQuery, "Non-Confirmed Export Query", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Non-Confirmed Export Query"
DoCmd.OpenQuery "Confirmed Export Query", acViewNormal, acEdit
DoCmd.OutputTo acOutputQuery, "Confirmed Export Query", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Confirmed Export Query"
DoCmd.OpenQuery "Non-Confirmed Export Query", acViewPivotTable, acEdit
DoCmd.OutputTo acOutputQuery, "Non-Confirmed Export Query Pivot", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Non-Confirmed Export Query"
DoCmd.OpenQuery "Confirmed Export Query", acViewPivotTable, acEdit
DoCmd.OutputTo acOutputQuery, "Confirmed Export Query Pivot", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Confirmed Export Query"
Export_To_Excel_Exit:
Exit Function
Export_To_Excel_Err:
MsgBox Error$
Resume Export_To_Excel_Exit
End Function
'------------------------------------------------------------
' Export_To_Excel
'
'------------------------------------------------------------
Function Export_To_Excel()
On Error GoTo Export_To_Excel_Err
DoCmd.OpenQuery "Non-Confirmed Export Query", acViewNormal, acEdit
DoCmd.OutputTo acOutputQuery, "Non-Confirmed Export Query", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Non-Confirmed Export Query"
DoCmd.OpenQuery "Confirmed Export Query", acViewNormal, acEdit
DoCmd.OutputTo acOutputQuery, "Confirmed Export Query", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Confirmed Export Query"
DoCmd.OpenQuery "Non-Confirmed Export Query", acViewPivotTable, acEdit
DoCmd.OutputTo acOutputQuery, "Non-Confirmed Export Query Pivot", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Non-Confirmed Export Query"
DoCmd.OpenQuery "Confirmed Export Query", acViewPivotTable, acEdit
DoCmd.OutputTo acOutputQuery, "Confirmed Export Query Pivot", "ExcelWorkbook(*.xlsx)", "", False, "", 0, acExportQualityPrint
DoCmd.Close acQuery, "Confirmed Export Query"
Export_To_Excel_Exit:
Exit Function
Export_To_Excel_Err:
MsgBox Error$
Resume Export_To_Excel_Exit
End Function