Функция оболочки VBA не может запускать работу .bat

Question

Моя функция оболочки не запускала работу .bat. Может ли кто-нибудь помочь?

Public Sub TESTRUN() 
Dim Command As String 
Dim pathcrnt As String 
Dim RetVal 

pathcrnt = ActiveWorkbook.path 
Command = "RunMGALFA -ain:" & Range("AinFile") & " -val:" & Range("ValDate") & " -run:" & Range("RunNumber") 

Open pathcrnt & "\test.bat" For Output As #1 
Print #1, Command 
Close #1 
Shell pathcrnt & "\test.bat", vbMaximizedFocus 

End Sub 

Answer 1

Ваш скрипт не будет работать, если не RunMGALFA либо в том же каталоге, pathcrnt или в месте, зарегистрированном в вашей системной переменной %PATH%.

Я рекомендовал бы поставлять полный путь к RunMGALFA в вашем сгенерированного сценария:

Command = "C:\Path\To\RunMGALFA -ain:" & Range("AinFile") & " -val:" & Range("ValDate") & " -run:" & Range("RunNumber")