Dim stDocName als Schnur
Schwacher Dateiname als Schnur
Schwache X-Datei als Schnur
Schwaches tDate als Schnur
Schwaches FileDir als Schnur
stDocName = „Commit_Export“
Dateiname = „Wachovia Daten-Export“
tDate = Format (jetzt (), „Millimeter-DDjJ“)
FileDir = „C:\Documents and Settings\joe\Desktop“
X-Datei = Dateiname u. tDate u. „.xls“
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.OutputTo acOutputQuery, „Commit_Export“, _
acFormatXLS, X-Datei, falsch
DoCmd.Close acQuery, „Commit_Export“, acSaveNo
|