Страница 1 из 1

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

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

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

Добавлено: 24 дек 2009, 13:15
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

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

Добавлено: 24 дек 2009, 14:48
Хфедя
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
Уважаемый коллега !
Ваша программа

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

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