Function eksporttable() 'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "ProcesOP", "C:\Tabelaexel.xls", True Dim outputF As String outputF = CurrentProject.Path & "\Export_" & Format(Date, "yyyyMMdd") & ".xls" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ImeTbaele", outputF, True End Function