Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выполнить командный файл из макроса, Не получается вызвать командный файл из макроса
 
#1
29.03.2013 19:21:08
Добрый вечер, мастера! В архиве форума нашел, как запустить из Excel внешнюю программу.
А свой cmd-файл dircommand.cmd запустить не получается. Что не так делаю? Пробую в первый раз.  :)
в dircommand.cmd только строчка dir c: /p
Почему это я ничего не могу? Я могу быть плохим примером...  ;)
 
 
 
#2
29.03.2013 19:39:54
Код
?
1
2
3
4
Public Sub ЗапускКомандногоФайла()
On Error Resume Next
r = Shell(ThisWorkbook.Path & "\" & "dircommand.cmd", 1)
End Sub
в батник добавьте строку pause. Т.е.:
dir c: /p
pause
Я сам - дурнее всякого примера! ...
 
 
 
#3
29.03.2013 19:42:40
Код
?
1
Call Shell("cmd /c dircommand.cmd", 1)
 
 
 
#4
29.03.2013 19:53:08
Спасибо, KuklP! Работает.... А ято за код ошибки 16?
Код Казанского почему-то не сработал... Но все равно Спасибо! :)
Почему это я ничего не могу? Я могу быть плохим примером...  ;)
 
 
 
#5
29.03.2013 19:53:58
опечатка -А что за код ошибки 16?
Почему это я ничего не могу? Я могу быть плохим примером...  ;)
 
 
 
#6
29.03.2013 20:20:29
Код Алексея не сработал потому, что Вы неверно указали путь. Посмотрите, как у меня указан.
Я сам - дурнее всякого примера! ...
 
 
 
#7
29.03.2013 20:27:55
Спасибо, я до этого уж сам додумался, оба кода рабочие. Ветку с благодарностью закрываем :D
Почему это я ничего не могу? Я могу быть плохим примером...  ;)
 
 
 
Страницы: 1
Читают тему
Loading...