Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: FlorianF am Juni 29, 2016, 14:56:33 Nachmittag

Titel: Office 2016 Shell-Anweisung in VBA wird nicht korrekt ausgeführt
Beitrag von: FlorianF am Juni 29, 2016, 14:56:33 Nachmittag

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

Titel: Antw:Office 2016 Shell-Anweisung in VBA wird nicht korrekt ausgeführt
Beitrag von: maninweb am Juni 29, 2016, 19:43:11 Nachmittag

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ß

Titel: Antw:Office 2016 Shell-Anweisung in VBA wird nicht korrekt ausgeführt
Beitrag von: FlorianF am Juni 30, 2016, 11:28:48 Vormittag

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.