Выполнение команды в командной строке с использованием excel VBA

Question

У меня есть фиксированная команда, которую мне нужно передать в командную строку с помощью VBA, а затем выполнить команду. , например. «perl a.pl c: \ temp»

следующая команда, которую я пытаюсь использовать, но она просто открывает командную строку и не запускает команду.

Call Shell("cmd.exe -s:" & "perl a.pl c:\temp", vbNormalFocus)

Пожалуйста, проверьте.

Answer 1

Параметр S ничего не делает сам по себе.

/S  Modifies the treatment of string after /C or /K (see below) 
/C  Carries out the command specified by string and then terminates 
/K  Carries out the command specified by string but remains 

Попробуйте что-то вроде этого вместо

Call Shell("cmd.exe /S /K" & "perl a.pl c:\temp", vbNormalFocus) 

Вы можете даже не нужно добавлять «cmd.exe» в этой команде, если вы не хотите, чтобы окно командной строки, чтобы открыть, когда это выполняется. Shell должна выполнить команду самостоятельно.

Shell("perl a.pl c:\temp") 

-Edit-
Ждать команду, чтобы закончить вам придется сделать что-то вроде @Nate Хекман показывает в своем ответе here

Dim wsh As Object 
Set wsh = VBA.CreateObject("WScript.Shell") 
Dim waitOnReturn As Boolean: waitOnReturn = True 
Dim windowStyle As Integer: windowStyle = 1 

wsh.Run "cmd.exe /S /C perl a.pl c:\temp", windowStyle, waitOnReturn