Supportnet / Forum / Tabellenkalkulation
VBScript: Excel minimiert öffnen
Frage
Hallo,
suche verzweifelt die Syntax in VBScript um eine Exceldatei zu öffnen und
als Fenster zu minimieren.
Dies ist mein Code, um die Exceldatei Mappe1.xls zu öffnen:
Dim objExcel, objWorkbook
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("B:\Mappe1.xls")
objExcel.Visible = True
Bei Textdateien ist es ein Schalter (2) fürs minimierte Öffnen:
Dim txtDatei
Set txtDatei=WScript.CreateObject("Wscript.shell")
txtDatei.Run "%WINDIR%\notepad.exe C:\Test.txt", 2
Gibt es so etwas auch für eine Exceldatei?
Vielen Dank für Eure Unterstützung.
Gruß, Georg
Antwort 1 von Solo
Hi, hier mein Beispiel-Vorschlag. Musst du nur deinen Wünschen anpassen.
Const MAXIMIZE_WINDOW = 3
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "notepad.exe", MAXIMIZE_WINDOW
Wert Beschreibung für MAXIMIZE_WINDOW
0 Verstecktes Fenster
1 Aktiviert das Fenster und zeigt es an. Wenn das Fenster minimiert oder maximiert ist, werden Originalgröße und –position des Fensters wiederhergestellt.
2 Aktiviert das Fenster und zeigt es minimiert an.
3 Aktiviert das Fenster und zeigt es maximiert an.
4 Zeigt das Fenster mit seiner letzten Größe und Position an. Das aktive Fenster bleibt aktiv.
5 Aktiviert das Fenster und zeigt es mit seiner aktuellen Größe und Position an.
6 Minimiert das Fenster und aktiviert das nächste Fenster in Z-Reihenfolge. Bei der Z-Reihenfolge handelt es sich um eine Liste, in der die Fenster aktiviert werden. Sie können die Liste sehen, wenn Sie ALT+TAB drücken.
7 Zeigt das Fenster minimiert an. Das aktive Fenster bleibt aktiv.
8 Zeigt das Fenster in seinem Zustand an. Das aktive Fenster bleibt aktiv.
9 Aktiviert das Fenster und zeigt es an. Wen das Fenster minimiert oder maximiert ist, dann werden seine Originalgröße und –position wiederhergestellt.
10 Setzt den Anzeigezustand des Fensters auf Basis des Anzeigezustands des Programms, das die Anwendung gestartet hat.
MfG
Const MAXIMIZE_WINDOW = 3
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "notepad.exe", MAXIMIZE_WINDOW
Wert Beschreibung für MAXIMIZE_WINDOW
0 Verstecktes Fenster
1 Aktiviert das Fenster und zeigt es an. Wenn das Fenster minimiert oder maximiert ist, werden Originalgröße und –position des Fensters wiederhergestellt.
2 Aktiviert das Fenster und zeigt es minimiert an.
3 Aktiviert das Fenster und zeigt es maximiert an.
4 Zeigt das Fenster mit seiner letzten Größe und Position an. Das aktive Fenster bleibt aktiv.
5 Aktiviert das Fenster und zeigt es mit seiner aktuellen Größe und Position an.
6 Minimiert das Fenster und aktiviert das nächste Fenster in Z-Reihenfolge. Bei der Z-Reihenfolge handelt es sich um eine Liste, in der die Fenster aktiviert werden. Sie können die Liste sehen, wenn Sie ALT+TAB drücken.
7 Zeigt das Fenster minimiert an. Das aktive Fenster bleibt aktiv.
8 Zeigt das Fenster in seinem Zustand an. Das aktive Fenster bleibt aktiv.
9 Aktiviert das Fenster und zeigt es an. Wen das Fenster minimiert oder maximiert ist, dann werden seine Originalgröße und –position wiederhergestellt.
10 Setzt den Anzeigezustand des Fensters auf Basis des Anzeigezustands des Programms, das die Anwendung gestartet hat.
MfG
Antwort 2 von Solo
Nachtrag:
Viel mir gerade erst ein.
Eine Exceldatei kannst nicht mit Notepad öffnen. Du musst dazu erst das EXCEL-Programm mit der entsprechenden Datei aufrufen.
Viel mir gerade erst ein.
Eine Exceldatei kannst nicht mit Notepad öffnen. Du musst dazu erst das EXCEL-Programm mit der entsprechenden Datei aufrufen.
Antwort 3 von Solo
Hier ist der Code. Pfade sind entsprechend anzupassen.
Dim objShell
Const MAXIMIZE_WINDOW = 4
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run """C:\Programme\Microsoft Office\Office10\Excel.exe"" ""C:\Dokumente und Einstellungen\User_11\Eigene Dateien\Test.xls""", MAXIMIZE_WINDOW, True
WScript.Quit
MfG
Dim objShell
Const MAXIMIZE_WINDOW = 4
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run """C:\Programme\Microsoft Office\Office10\Excel.exe"" ""C:\Dokumente und Einstellungen\User_11\Eigene Dateien\Test.xls""", MAXIMIZE_WINDOW, True
WScript.Quit
MfG