Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Command12_Click() DoCmd.SetWarnings False exportToXl ("Booking Override Query") exportToXl ("Shipping Override Query") DoCmd.SetWarnings True MsgBox "Successfully Exported to M:\Automated Planning Reporting" End Sub Sub exportToXl(QueryName As String) Dim dbTable As String Dim xlWorksheetPath As String xlWorksheetPath = "M:\Automated Planning Reporting\" xlWorksheetPath = xlWorksheetPath & "Export_Ship " & Format(Date, "MM-dd-yyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, 10, QueryName, xlWorksheetPath, True End Sub '- See more at: http://www.askeygeek.com/vba-code-to-export-access-data-to-excel/#sthash.pK0862gD.dpuf
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.