Re: von Excel aus die DOS-Shell bearbeiten
10.05.2002 15:54:48
josef
hallo martin,nachdem du dos-shell gestartet hast mußt du auf dieser ebene die entsprechenden zeichenfolgen eingeben.
binde einfach folgendes in deinen code vor end sub ein und teste oder spiel mal damit
Sub DosShell()
Dim erg As String
erg = Shell("C:\WINNT\system32\cmd.exe", 1)
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{t}", True
SendKeys "{r}", True
SendKeys "{e}", True
SendKeys "{e}", True
SendKeys "{enter}", True
End Sub
application.wait hab ich drin, weil ich mehrfach festgestellt habe, daß die erste zeichenfolge nicht immer gesendet wird. spezielle baumansichten kannst du ebenfalls mit sendkeys aufrufen.
cu
josef