How do you run a .exe with parameters using vba's shell()?

[ITISAGLN]

Via VBA, I am trying to run an executable that has parameters and a file name.

Dim strProgramName As String
Dim strArgument0 As String
Dim strArgument1 As String

'//This is the executable
strProgramName = "C:\Dir0\Dir1\Dir2\Dir3\MyExecutable.exe"

'//These are the required parameters
strArgument0 = " /x /y "

'//This is file to process
strArgument1 = "C:\Dir0\Dir1\Dir2\Dir3\Dir4\Dir5\MyFile.TXT"

Dim LValue As String
LValue = """" & strProgramName & """ """ & strArgument0 & """ """ & strArgument1 & """"

Call Shell(LValue, vbNormalFocus)

This call works through windows command line and I am trying to get it to work when hitting a VBA button.
Command Line is something like this: " "C:\Dir0\Dir1\Dir2\Dir3\MyExecutable.exe /x /y "C:\Dir0\Dir1\Dir2\Dir3\Dir4\Dir5\MyFile.TXT" "

When the button is hit, this function is called that has Call Shell(LValue, vbNormalFocus)...but I get errors...the errors are relative to the executable with arguments and file so I think it's an escape, slash, file name type error
Any help is appreciated.

 

[healey21]

Welcome to the forum, when you use shell command to an exe file you shouldn't need to include the path as Shell will look for the Application.exe file where ever it is located. if you look at this code snippet it might help.

Sub shel1()
Dim retval
retval = Shell("notepad.exe C:\Access\Simple.txt", vbNormalFocus)

End Sub

 

[ITISAGLN]

Thanks for the response. I have many .exe's with the same name in different directories so I need to point to one of them. Then I have parameters to send to the .exe. Then the file name.

 

[ITISAGLN]

This did it and now I can piece together...Thanks!
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1

wsh.Run "C:\Dir\Dir\Dir\My.exe /x /y C:\Dir\Dir\Dir\Dir\Dir\Dir\MyFile.txt", windowStyle, waitOnReturn