Релиб / Программирование / VBA / Запуск внешнего приложения / Latest Posts

RE: Запуск внешнего приложения

new_see — Mon, 27 Aug 2007 17:21:20 GMT

Разобрался, спасибо [b]Pavel55[/b], в [url=http://www.relib.com/forums/Topic915585-11-1.aspx]ответе[/url] на мой прежний вопрос он использует функцию [i]ShellExecute[/i]. В общем вот код: [code]Option Explicit

Dim oShell As Object

Private Declare Function ShellExecute& Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long)

Const SW_SHOWNORMAL = 1

Sub Help_Run()
Dim sHelpPath As String
sHelpPath = "C:\Program Files\Balance\Balance.chm"
ShellExecute 0&, "open", sHelpPath, _
vbNullString, vbNullString, SW_SHOWNORMAL
End Sub[/code]
мне нужно было запустить файл .chm, но так же можно запустить практически любой файл.

RE: Запуск внешнего приложения

Pavel55 — Mon, 27 Aug 2007 17:16:36 GMT

Посмотрите справку по Shell

Пример запуска калькулятора

[code]Dim RetVal
RetVal = Shell("CALC.EXE", 1) ' Run Calculator.[/code]

Запуск внешнего приложения

new_see — Mon, 27 Aug 2007 15:59:18 GMT

Поиском не нашел.

Как из макроса запустить внешнее приложение?

Или, может в .OnAction как-то можно открыть

[code]With .Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "Справка"
.OnAction = "Открыть внешнее приложение =)"
End With[/code]