Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Открытие bat файла
 
#1
24.04.2017 12:20:55
Добрый день!
У меня есть макрос, который запускает bat файл с помощью строки
Код
TestValue = Shell("C:\pdf2txt\YourPage.bat", 1)
Но, данный код периодически срабатывает, а бывает и не срабатывает. Хотелось бы получить код, который срабатывает всегда.

Пробовал
Код
CreateObject("WScript.Shell").Run "C:\pdf2txt\YourPage.bat"
, но не работает.

Заранее спасибо.
 
 
 
#2
24.04.2017 12:26:55
CrazyRabbit, попробуйте такую строку запуска:
Цитата
"start """" /DC:\pdf2txt\ C:\pdf2txt\YourPage.bat"

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
24.04.2017 12:34:55
Перенес строку в код, она красным светится. У меня не получается преобразовать ее, чтобы она могла работать. :(  
 
 
 
#4
24.04.2017 12:36:28
CrazyRabbit, наберите от руки. Такое не раз случалось, если текст кода копипастить с форума - что-то с пробелами не то...

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
24.04.2017 12:41:53
Переписал вручную то же самое. Как она может работать, если она начинается с кавычки?
 
 
 
#6
24.04.2017 12:46:38
CrazyRabbit, гм, это текстовая строка. Посмотрите на свой пример:
Код
CreateObject("WScript.Shell").Run "C:\pdf2txt\YourPage.bat"
в нём же тоже кавычки, что логично.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
24.04.2017 12:54:34
Данная строка начинается с CreateObject, а не со "start "". Но не суть важно. У меня не работает и намеков на работу нет.
 
 
 
#8
24.04.2017 13:00:36
http://forum.vingrad.ru/topic-334203.html

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#9
24.04.2017 13:20:40
Прописил следующий код. Он вроде пытается запустить bat файл, но он все равно не делает то что ему нужно. При ручном запуске bat файла все работает правильно. Сейчас комп перезагружу. может поможет...
JayBhagavan - Спасибо за помощь.
Код
ShellPlus "c:\", "C:\pdf2txt\YourPade.bat", vbNormalFocus
Function ShellPlus(Path As String, File As String, WindowStyle As VbAppWinStyle) As Double
    ShellPlus = Shell("cmd /c cd " + Path + " & " + File, WindowStyle)
End Function
 
 
 
#10
24.04.2017 13:40:45
Все равно не пашет.
Блин, в пятницу ITшники чистили диск "С". После их чистки, даже TestValue = Shell("C:\pdf2txt\YourPage.bat", 1) перестало работать :((
 
 
 
#11
25.04.2017 11:57:40
Нашел решение. Может кому понадобится.
TestValue = Shell("C:\pdf2txt\YourPage.bat", 1) - действительно работает и bat файл действительно запускается.

В bat файл в конец добавил текст pause. Благодаря чему заметил, что exe, который находится на диске C, он открывает с директории диска D.

Поэтому добавил в bat в начало строку по изменению директории, а именно cd /d "C:\pdf2txt\"

Теперь все заработало как надо.
 
 
 
Страницы: 1
Читают тему
Наверх