VBA Öffnen beliebiger Anwendungen
Hi,
wäre nett wenn mir jemand helfen könnte.
Hallo,
und zwar möchte ich ein beliebiges Programm starten , dieses soll eine Exceldatei starten (es ist nicht Excel)und nach 10 Sekunden automatisch als .csv abgespeichert werden.
Nach weiteren 10 Sekunden soll das Programm geschlossen werden (ohne Speicherndialog).
Der Code unten bezieht sich rein auf Excel und dies klappt wunderbar.
Meine Frage ist , wie man eine beliebige Anwendung unter dem gleichen o.g Prozedere starten kann.
Es wäre nett wenn mir jemand Anregungen , Hilfe geben könnte.
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("d:\testt\test.xls")
objExcel.Visible = true
objWorkbook.RefreshAll //refreshed das Dokument
wscript.sleep 10000
objExcel.Application.DisplayAlerts = False
objWorkbook.SaveAs ("d:\test\test.csv")
objExcel.Application.DisplayAlerts = True
wscript.sleep 10000
objExcel.Quit
Vielen Dank im voraus und eine schöne Woche!
mfg
thill0r
und zwar möchte ich ein beliebiges Programm starten , dieses soll eine Exceldatei starten (es ist nicht Excel)und nach 10 Sekunden automatisch als .csv abgespeichert werden.
Nach weiteren 10 Sekunden soll das Programm geschlossen werden (ohne Speicherndialog).
Der Code unten bezieht sich rein auf Excel und dies klappt wunderbar.
Meine Frage ist , wie man eine beliebige Anwendung unter dem gleichen o.g Prozedere starten kann.
Es wäre nett wenn mir jemand Anregungen , Hilfe geben könnte.
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("d:\testt\test.xls")
objExcel.Visible = true
objWorkbook.RefreshAll //refreshed das Dokument
wscript.sleep 10000
objExcel.Application.DisplayAlerts = False
objWorkbook.SaveAs ("d:\test\test.csv")
objExcel.Application.DisplayAlerts = True
wscript.sleep 10000
objExcel.Quit
Vielen Dank im voraus und eine schöne Woche!
mfg
thill0r
Please also mark the comments that contributed to the solution of the article
Content-Key: 140327
Url: https://administrator.de/contentid/140327
Printed on: April 24, 2024 at 17:04 o'clock
10 Comments
Latest comment
Mit den Infos die du gibst, kann man dir nicht wirklich mehr helfen.
Du verätst uns weder, ob du das Programm aus einem normalen Vbs Script oder aus einer Anwendung (welche?) mit Vba starten willst.
Noch können wir wissen welches Programm du starten willst. Wir wissen nur, dass es nicht Excel ist
Auch könntest du mal den Code posten der bei dir anscheinend nicht funktioniert...
Du verätst uns weder, ob du das Programm aus einem normalen Vbs Script oder aus einer Anwendung (welche?) mit Vba starten willst.
Noch können wir wissen welches Programm du starten willst. Wir wissen nur, dass es nicht Excel ist
Auch könntest du mal den Code posten der bei dir anscheinend nicht funktioniert...
Dann muss sich das Programm aber so starten lassen falls es den Aufruf der Datei als Befehlszeilenparameter unterstützt.
Ob das Speichern als CSV möglich ist hängt vom Programm ab.
Das warten im Script kannst du mit
lösen.
set shell = CreateObject("WScript.Shell")
shell.run "GanzerPfadzurExe\BeliebigesProgramm.exe " & "GanzerPfadzurExcelDatei\DeineEcelFile.xls",1
Ob das Speichern als CSV möglich ist hängt vom Programm ab.
Das warten im Script kannst du mit
wscript.sleep 10000