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

Question

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

30

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

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

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

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

user1699227 30 июль 2013, в 19:35

Источник

2

вам даже не нужно сначала открывать cmd.exe -> Shell () может передать ваши perl-аргументы прямо в perl.exe
Cor_Blimey 30 июль 2013, в 20:35

Теги:

vba

shell

command-line

1 ответ

Ещё вопросы

вам даже не нужно сначала открывать cmd.exe -> Shell () может передать ваши perl-аргументы прямо в perl.exe

Ripster · Accepted Answer · 2013-07-30T21-42-00.000Z

Параметр 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 Hekman в своем ответе здесь

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

Имейте в виду, что оболочка вернется после запуска процесса. Он не будет ждать завершения вашего Perl-Script, просто говоря.
Большое спасибо. это отлично работает Каков будет код «ждать завершения моего Perl-Script»?
Я думаю , что бы сделать что - то вроде этого
Если вместо фиксированной команды мне нужно передать одну из переменных из ячеек Excel, то как мне это сделать? На данный момент я пытался следующим образом (X является переменной) wsh.Run "cmd.exe / S / C perl a.pl" & X & "100", windowStyle, waitOnReturn