Dim stDocName Sznurek
Ciemnawy FileName Sznurek
Ciemnawy XFile Sznurek
Ciemnawy tDate Sznurek
Ciemnawy FileDir Sznurek
stDocName = "Commit_Export"
FileName = "Wachovia Dane Eksport"
tDate = Format (Teraz (), "mm-dd-yy")
FileDir = "C:\Documents and Settings\joe\Desktop"
XFile = FileName & tDate & ".xls"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.OutputTo acOutputQuery, "Commit_Export", _
acFormatXLS, XFile, Fałszywy
DoCmd.Close acQuery, "Commit_Export", acSaveNo
|