Не срабатывает макрос запуска программы

[Nicolas_46]

Всем доброго времени суток. Товарищи программеры, столкнулся с проблеммой и не знаю в чем дело.

Проблеммы с макросом запуска программы *.exe
запускаю таким образом:

Sub Запуск_Saprks3()

ChDir ThisWorkbook.Path
Shell ThisWorkbook.Path & "\saprks3.exe"

End Sub

Проблемма в том, что на некоторых компьютерах запускается программа таким образом, а на некоторых нет. При этом ни какой ошибки не выдается.
подскажите пожалуйста в чем дело и как можно исправить это.
Заранее спасибо

[Hugo121]

Попробуйте ещё ChDrive в начало поставить:

ChDrive ThisWorkbook.Path

[Nicolas_46]

Все срабатывает, а почему с ChDir не работало? На любой машине запустится, как считаете?

[Hugo121]

Чем больше я знаком с компьютерами - тем меньше я в них уверен...
Может быть всё что угодно...
Хотя в данном случае думаю код идеален (с ChDrive)
Ну разве что Application.PathSeparator может жизнь подпортить... Теоретически. Хотя может и в этом проблема, что "на некоторых не запускается". Правда я не уверен - там тоже *.exe?

[EducatedFool]

Проблема в том, что на некоторых компьютерах запускается программа таким образом, а на некоторых нет

Проблема в том, что на некоторых компах путь к текущему файлу содержит пробелы, а на некоторых - нет.

Попробуйте так:

Shell chr(34) & ThisWorkbook.Path & "\saprks3.exe" & chr(34)

[IgorGO]

на некоторых компах путь к текущему файлу содержит пробелы

а вот это мысль! и вся это строка разделяется на команду и аргументы, и выясняется, что такой команды.

[Скрипт]

Nicolas_46, зачем в этом коде:

Sub Запуск_Saprks3()

    ChDir ThisWorkbook.Path
    Shell ThisWorkbook.Path & "\saprks3.exe"

End Sub

Нужна команда "ChDir"?


Цитата из VBA-справочника:
ChDir - это команда, которая изменяет текущую папку.
Текущая папка - это папка, которую Excel или другая программа использует, если не указана определённая папка.


Nicolas_46, вы же указываете определённую папку в этой команде:

Shell ThisWorkbook.Path & "\saprks3.exe"

В этой команде определённая папка "ThisWorkbook.Path". "ThisWorkbook.Path" - это путь, где находится Excel-книга и этот путь ничем нельзя изменить, кроме как переместить Excel-книгу в другое место.

Использование команды ChDir имело бы смысл в вашем случае, если бы вы вот так писали код (я только пример кода написал, нужно ещё уточнять в этом коде текущий диск):

Sub Запуск_Saprks3()

    ChDir ThisWorkbook.Path
    Shell CurDir & "\saprks3.exe"

End Sub

[Nicolas_46]

Благодарю за советы. Пока работает на всех машинах на которых пробовал. Конечный вариан выбрал такой такой:

Sub Вызов()
ChDrive ThisWorkbook.Path
Shell Chr(34) & ThisWorkbook.Path & "\saprks3.exe" & Chr(34)
End Sub

Еще такой вопрос созрел:

В макросе, по ходу выполнения действия, запускается другой макрос.
запуск выполняется вот такой строкой:

Call Лист4.Блок_2

запуск происходит но макрос выполняется не корректно, а если в ручную запустить его, то все нормально. Почему так происходит, подскожите пожалуйста.

[Скрипт]

Nicolas_46, удалите эту строку, т.к. в вашем коде эта строка ничего не делает, связанное с вашей задачей:

ChDrive ThisWorkbook.Path

[Nicolas_46]

ок, так тоже заработало. До этого не срабатывало почему-то.