Office 2016 Shell-Anweisung in VBA wird nicht korrekt ausgeführt

[FlorianF]

Hi Leute,

ich habe eine Shell-Anweisung mit Parameterübergabe welche ich per VBA ausführen möcjte. Wenn ich die Anweisung identisch (bis auf die " ) in der Eingabeaufforderung eingebeb klappt alles, nur aus Excel passiert nicht.

Hie mal der Code:

Code: [Auswählen]

ShellAndWait ("C:\PROGRAMME\meinprogramm.exe -pC:\Users\administrator\Documents -dDatei.csv")
Die ShellAndWait schaut so aus:

Code: [Auswählen]

Public Sub ShellAndWait(ByVal PathName As String, Optional ByVal WindowState As Integer = 1)
    Dim WshShell As Object
    On Error GoTo ende
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run PathName, WindowState, 1 ' 1 = bWaitOnReturn
    Set WshShell = Nothing
    Exit Sub

ende:
    MsgBox "Falscher Daten- oder Programmpfad"
End Sub

Hat jemand eine Idee?

Viele Grüße
Flo

[maninweb]

Hallo,

vielleicht mit einem Leerzeichen zwischen Parameter und Pfad?

Code: Visual Basic

1. ShellAndWait ("C:\PROGRAMME\meinprogramm.exe -p C:\Users\administrator\Documents -dDatei.csv")

Oder ggf. mit ", z.B. so (ungetestet)...

Code: Visual Basic

1. ShellAndWait ("C:\PROGRAMME\meinprogramm.exe -p " & Chr(34) & "C:\Users\administrator\Documents -dDatei.csv" & Chr(34))

Gruß

[FlorianF]

Leider klappt das nicht. Was mich wundert ist, dass in der CMD alles klappt und wenn ich das gleiche in Excel mache es nicht mehr geht.