Return to Snippet

Revision: 64989
at October 12, 2013 01:49 by gtree


Initial Code
UserName = UCase(Environ("Username"))
ExportTimestamp = MonthRun & DayRun & Year(Now) & HourRun & MinuteRun

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "qryRequestsTable", "C:\Documents and Settings\" & UserName & "\Desktop\RequestsTable" & ExportTimestamp & ".xls", True

DoCmd.TransferSpreadsheet acExport, , "qryRequestsTable", "C:\Documents and Settings\" & UserName & "\Desktop\RequestsTable" & ExportTimestamp & ".xlsx", True

Initial URL

                                

Initial Description
Runs and exports the already built query "qryRequestsTable" First command line works for xls, while second line can be used for xlsx. (ExportTimeStamp made up of predetermined strings)

Initial Title
Export Access Query to Excel

Initial Tags

                                

Initial Language
Visual Basic