Dim OutputF As String
Dim SQL As String
Dim QDF As QueryDef
Dim Db As Database
Dim ImeFajla As String

Set Db = CurrentDb
Set QDF = Db.QueryDefs("QExport")
SQL = Me.RecordSource
QDF.SQL = SQL
ImeFajla = Format(Date, "yyyyMMdd") & ".xls"
OutputF = FindDatabase(CurrentProject.Path, ImeFajla)
'Ovo je samo izmijenjeno
If OutputF <> "" Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "QExport", OutputF, True
End If