Parameter des VBS scripts werden nicht angenommen
Hallo
Ich habe folgendes problem mit einem vbs script, es lässt sich nicht über eine Batch starten da die parameter nicht angenommen werden.
dim ex
dim datei
dim blatt
' Parameter prüfen
if WScript.Arguments.count > 0 then
datei = WScript.Arguments(0)
else
' bei Fehler, eine Meldung und beenden
msgbox "Es wurde keine Datei angegeben!"
WScript.Quit 1
end if
' Verbindung zu Excel herstellen
Set ex = GetObject ( datei )
' alle einzelnen Arbeitsblätter ausdrucken
for each blatt in ex.WorkSheets
blatt.PrintOut
next
' die Datei schließen
ex.Close
in meiner batch steht folgendes: exprint.vbs mineexcel.xls
Achja das Script dient zum drucken von excel dateien und funktioniert bestens wenn ich die excel datei per drag&drop draufziehe.
MFG&Danke im vorhinein
Benna
Ich habe folgendes problem mit einem vbs script, es lässt sich nicht über eine Batch starten da die parameter nicht angenommen werden.
dim ex
dim datei
dim blatt
' Parameter prüfen
if WScript.Arguments.count > 0 then
datei = WScript.Arguments(0)
else
' bei Fehler, eine Meldung und beenden
msgbox "Es wurde keine Datei angegeben!"
WScript.Quit 1
end if
' Verbindung zu Excel herstellen
Set ex = GetObject ( datei )
' alle einzelnen Arbeitsblätter ausdrucken
for each blatt in ex.WorkSheets
blatt.PrintOut
next
' die Datei schließen
ex.Close
in meiner batch steht folgendes: exprint.vbs mineexcel.xls
Achja das Script dient zum drucken von excel dateien und funktioniert bestens wenn ich die excel datei per drag&drop draufziehe.
MFG&Danke im vorhinein
Benna
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 108905
Url: https://administrator.de/forum/parameter-des-vbs-scripts-werden-nicht-angenommen-108905.html
Ausgedruckt am: 04.05.2025 um 01:05 Uhr
2 Kommentare
Neuester Kommentar