Запуск exe-файла в Excel ?

[Хфедя]

Коллеги !
Нет ли в Excel средств запуска exe-файла, кроме функции Shell, входящей в состав VBA ?

[EducatedFool]

Есть способы, причем много.

Вот так можно запустить приложение Office:

Код: Выделить всё

[color=darkblue]Sub[/color] test()
    Application.ActivateMicrosoftApp xlMicrosoftWord
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Ну и здесь ещё пара способов: (есть и другие, но лень вспоминать)
http://www.programmersforum.ru/showthread.php?t=50634

По поводу использования Shell можно почитать это:
http://www.programmersforum.ru/showpost ... ostcount=6

[Хфедя]

Есть способы, причем много.

Вот так можно запустить приложение Office:

Код: Выделить всё

[color=darkblue]Sub[/color] test()
    Application.ActivateMicrosoftApp xlMicrosoftWord
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Ну и здесь ещё пара способов: (есть и другие, но лень вспоминать)
http://www.programmersforum.ru/showthread.php?t=50634

По поводу использования Shell можно почитать это:
http://www.programmersforum.ru/showpost ... ostcount=6

Уважаемый коллега !
Ваша программа

Private Sub Form_Load()
MyPath = "c:\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = MyPath
'Debug.Print WshShell.CurrentDirectory
Call Shell("cmd.exe")
End Sub

, в которой начальная папка задается предварительно, - это то, что надо !
Я Ваш должник !