Über VBA Makro in Excel DOS Befehle ausführen

Guten Morgen

Ich habe folgendes Problem. Ich möchte gerne in Excel ein VBA Makro schreiben, welches mir ermöglicht mehrere DOS Befehle nacheinander aus zu führen.

Momentan mache ich dies über CMD, es soll aber nun in Excel automatisiert werden, da ich dort die Ergebnisse dieser Befehle, eine TXT, später importiere.

Grüße, Shaggy84

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 64062

Url: https://administrator.de/forum/ueber-vba-makro-in-excel-dos-befehle-ausfuehren-64062.html

Ausgedruckt am: 21.02.2025 um 21:02 Uhr

8 Kommentare

Neuester Kommentar

Hi,

warum denn keine Batch-Datei? Hier kannst du genauso mitloggen!

Psycho

Hallo Shaggy84!

In VBA gibt es dafür "Shell", allerdings würde ich auch, so wie Psycho Dad, eine Batchdatei empfehlen, und sei es nur wegen des zeitlichen Ablaufes: Mit "Shell" kannst Du zwar das Programm starten, aber es wird nicht gewartet, bis dieses zu Ende ist, sondern in VBA gleich die nächste Anweisung ausgeführt ...

Grüße
bastla

Das stellt kein Problem dar. Es soll nur eine kleine Anweisung ausführen:

'MSINFO32 Report erstellen  
Dim x
x = Shell("cmd /c winmsd.exe /report c:\msinfo32.txt /categories +SystemSummary+ComponentsStorage")  

Jetzt soll die Befehlzzeile allerdings noch um das Attribut

 /computer 123xyz

erweitert werden.
Dieses Attribut "123xyz" würde ich gerne direkt einer Excel Zelle entnehmen. Kann mir jemand helfen, wie ich so etwas in den Code implementiere?

Hallo Shaggy84!

Entweder ín eine Variable schreiben oder gleich direkt so:

x = Shell("cmd /c winmsd.exe /report c:\msinfo32.txt /categories +SystemSummary+ComponentsStorage /" & Sheets("Tabelle1").Range("B9").Value)  

Anstelle von Range() kannst Du auch Cells(Zeile, Spalte) verwenden.

Grüße
bastla

Danke bastla, funktioniert wunderbar!

kannst du mir noch verraten, wie ich in VB Skript mehrere Eingaben im gleichen Fenster nacheinander ausführen kann?

Es geht um den Bewnutzerwechsel, die anschließende Eingabe des Passwortes, und das ausführen eines PRogrammes, aber sieh am besten selbst mal kurz hier:

'MSINFO32 Report erzeugen  
Dim x, y, z
x = Shell("runas /user:" & Sheets("Auswertung").Range("A29").Value & " cmd")  
y = Shell(Sheets("Auswertung").Range("B29").Value)  
z = Shell("/c winmsd.exe /computer " & Sheets("Auswertung").Range("C29").Value & " /report c:\msinfo32.txt /categories +SystemSummary+ComponentsStorage")  

Die erste "x" Zeile wird noch ausgehührt. Danach wird im Fenster die Eingabe des Passwortes verlangt. Dieses möchte ich mit der "y" Zeile übergeben und anschließend "z" ausführen. Wenn ich nur x'se eingebe funktioniert es auch nicht und in einer Zeile kann ich es nicht schreiben.

Wo liegt der Trick?

Hallo Shaggy84!

Der Trick wurde eigentlich oben schon genannt: eine Batch-Datei.

In der von Dir beschriebenen Form rufst Du 3 verschiedene Shells auf, die nix miteinander zu tun haben. Wenn Du es vorweg schaffst, alle erforderlichen Infos per VBA zu erhalten und daraus eine einzige Kommandozeile zu bauen, kann es klappen - einfacher ist es, per "Shell" nur eine einzelne Batchdatei aufzurufen, in welcher der Rest abgehandelt wird.

Ein manchmal auch funktionierender Ausweg könnte noch die Verwendung von "&" sein, um CMD-Befehle zu verknüpfen.

Grüße
bastla

Ich schau mal.

Es sollte im VBA Code bleiben, da ich direkt dort auf Excel Zellen zugreife. Wüsste net wie ich das aus einer Batch Datei machen sollte.

Ich find schon noch ne Lösung die ich dann auch hier präsentiere ;)
Danke für die schnelle Antworten