Tabellenblatt als csv speichern
30.09.2021 15:08:05
sebastian
Ich habe folgendes vor:
Ich habe per Power Query mehrere Dateien zusammengefügt. Diese Datei öffnen ich nun einmal am Tag automatisch per Task und möchte sie aktualisieren.
Das Makro benötige ich um die Datei als CSV zu speichern (für eine weitere Verarbeitung in meinem Warenbestandssystem) und danach die Datei wieder zu schließen.
Private Sub Workbook_Open()
Application.Wait (Now + TimeValue("0:01:00"))
ThisWorkbook.Worksheets("Tabelle1 (3)").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Admin\Desktop\" & Left(ThisWorkbook.Name, _
(InStrRev(ThisWorkbook.Name, ".") - 1)) & ".csv", FileFormat:=xlCSV
ActiveWorkbook.Close False
End Sub
Wie ich das Programm schließen kann weiß ich. Aber die Aktualisierungen erfolgen eben leider erst, nach dem Wait-Befehl. Gibt es da alternative Befehle, um die Aktualisierungen bereits laufen zu lassen?
Was ich im Netz gefunden habe, sagt dass Berechnungen usw. während des Wait ablaufen...
