Hallo,
ich habe eine CSV-Datei, die ich per Access öffnen, bearbeiten und dann speichern und wieder schließen möchte. Geht alles - aber beim Schließen erhalte ich die Rückfragen
- Sollen Ihre Änderungen in der Datei... gespeichert werden?
- Speichern unter...
- Die Datei ... besteht bereits. Möchten Sie die bestehende Datei ersetzen?
Diese Rückfragen möchte ich gerne mit ".Application.DisplayAlerts = False" vermeiden, das funktioniert aber leider nicht. Kann mir jemand sagen, was ich falsch mache?
Der Code lautet:
Private Sub Befehl9_Click()
DoCmd.SetWarnings False
DoCmd.TransferText acExportDelim, "Tab_SEPA Exportspezifikation", "Tab_SEPA", "c:\wstennis\SEPA\Tab_SEPA.csv", True, ""
'EXCEL BEREITSTELLEN
Dim excelobj As Object
Set excelobj = CreateObject("Excel.Application")
excelobj.Visible = True
excelobj.UserControl = True
With excelobj
.Visible = True
'CSV-DATEI BEARBEITEN
.Workbooks.Open FileName:="c:\wstennis\SEPA\Tab_SEPA.csv"
.Range("a1").Select
.ActiveCell.FormulaR1C1 = "AG Name;AG KontoNr bzw. IBAN;AG PLZ bzw. BIC;Beg/Zahlpfl Name;Beg/Zahlpfl Name2;Beg/Zahlpfl Strasse;Beg/Zahlpfl Ort;Beg/Zahlpfl KontoNr bzw. IBAN;Beg/Zahlpfl BLZ bzw. BIC;Betrag;Währung;Textschlüssel bzw. Zahlart;Termin;VWZ1;VWZ2;VWZ3;VWZ4;VWZ5;VWZ6;VWZ7;VWZ8;VWZ9;VWZ10;VWZ11;VWZ12;VWZ13;VWZ14;Mandat-ID;Mandat-Datum;AG Gläubiger-ID;Sequenz;Übergeordneter Auftraggeber Name"
.Rows("1:1").Select
.Selection.Insert Shift:=xlDown
.Range("a1").Select
.ActiveCell.FormulaR1C1 = "windata CSV 1.1"
'EXCEL-SCHLIESSEN UND BEENDEN
.Application.DisplayAlerts = False
'.ActiveWorkbook.Save
.ActiveWorkbook.SaveAs FileName:="c:\wstennis\SEPA\Tab_SEPA.csv", FileFormat:=xlCSV, CreateBackup:=False
.Application.DisplayAlerts = True
.Application.Quit
End With
DoCmd.Close acForm, "Fo_Stichtag"
MsgBox "Die Datei 'Tab_SEPA.csv' wurde im Verzeichnis 'c:\WSTennis\SEPA' abgelegt. Sie können diese Datei nach WINDATA übertragen.", , "SEPA-DAtei erstellt"
Ende:
DoCmd.SetWarnings True
End Sub
Vielen Dank im Voraus!
Gruß Werner
Hallo,
die Befehle Display Alerts sind unwirksam.
Speichere und Schließe am besten so:
.ActiveWorkbook.Save
.ActiveWorkbook.Close acSaveNo
.Application.Quit
Gruß Andreas