VBA Speichern unter Dialog unterdrücken und automatisches überschreiben
Hallo bin neu hier.Würde mich freuen wenn mir jemand helfen könnte.
Habe schon ähnliche Themen gefunden , die mir leider nicht halfen.
Nun zu meinem Problem:
In meiner Firma muss ich folgendes Realisieren:
Es soll zu einer bestimmten Zeit eine Exceldatei gestartet werden.Diese soll für eine bestimmte Zeit geöffnet bleiben und dann automatisch als .csv gespeichert werden.
Mein einziges Problem was ich habe ist , dass er beim 2. mal Ausführen , also wenn schon eine .csv aus der .xls erstellt wurde der "Speicherndialog" kommt.Dieser muss unterdrückt werden bzw es soll automatisch überschrieben werden , da das Ganze automatisiert ablaufen soll.Dieses "Projekt" stellt eine erhebliche Erleichterung einiger unserer Abteilungen dar.
Es wäre echt super wenn mir jemand helfen könnte!!
Hier der Code:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("d:\ordner\test.xls")
objExcel.Visible = true
objWorkbook.RefreshAll
wscript.sleep 10000
objWorkbook.SaveAs ("d:\ordner\test.csv")
wscript.sleep 10000
objExcel.Quit
Großen Dank für Eure Zeit!!
Habe schon ähnliche Themen gefunden , die mir leider nicht halfen.
Nun zu meinem Problem:
In meiner Firma muss ich folgendes Realisieren:
Es soll zu einer bestimmten Zeit eine Exceldatei gestartet werden.Diese soll für eine bestimmte Zeit geöffnet bleiben und dann automatisch als .csv gespeichert werden.
Mein einziges Problem was ich habe ist , dass er beim 2. mal Ausführen , also wenn schon eine .csv aus der .xls erstellt wurde der "Speicherndialog" kommt.Dieser muss unterdrückt werden bzw es soll automatisch überschrieben werden , da das Ganze automatisiert ablaufen soll.Dieses "Projekt" stellt eine erhebliche Erleichterung einiger unserer Abteilungen dar.
Es wäre echt super wenn mir jemand helfen könnte!!
Hier der Code:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("d:\ordner\test.xls")
objExcel.Visible = true
objWorkbook.RefreshAll
wscript.sleep 10000
objWorkbook.SaveAs ("d:\ordner\test.csv")
wscript.sleep 10000
objExcel.Quit
Großen Dank für Eure Zeit!!
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 138722
Url: https://administrator.de/contentid/138722
Ausgedruckt am: 19.11.2024 um 09:11 Uhr
5 Kommentare
Neuester Kommentar