Tabellenblatt als csv speichern
10.10.2021 18:22:42
sebastian
Ich benötige mal wieder euren Rat.
Ich habe das Phänomen, dass meine gespeicherte CSV automatisch nach dem speichern geöffnet wird.
Der Code ist wie folgt:
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:01:00"), "SaveCSV"
End Sub
Private Sub SaveCSV()
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("Tabelle1 (3)").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Admin\Desktop\" & Left(ThisWorkbook.Name, _
(InStrRev(ThisWorkbook.Name, ".") - 1)) & ".csv", FileFormat:=xlCSV
Workbooks("Test.xlsm").Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub
Beziehungsweise liegt es denn an dem Code? Wenn nicht, woran könnte es liegen?
Die Datei ist nicht im Autostart oder der XLStart abgelegt.
Anzeige