CSV-Datei ohne Rückfrage speichern

[wschmittw]

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:

Code [Auswählen] Erweitern

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

[Hondo]

Hallo,
die Befehle Display Alerts sind unwirksam.
Speichere und Schließe am besten so:

Code [Auswählen] Erweitern

        .ActiveWorkbook.Save
        .ActiveWorkbook.Close acSaveNo
        .Application.Quit

Gruß Andreas