|
|
|
Junior Member
 
участник
Last Login: 01.04.2008 18:41
Сообщ.: 22,
Visits: 162
|
|
Поиском не нашел.
Как из макроса запустить внешнее приложение?
Или, может в .OnAction как-то можно открыть
With .Add(Type:=msoControlButton)
.BeginGroup = True
.Caption = "Справка"
.OnAction = "Открыть внешнее приложение =)"
End With
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
| Посмотрите справку по Shell Пример запуска калькулятора Dim RetVal
RetVal = Shell("CALC.EXE", 1) ' Run Calculator.
|
|
|
|
|
Junior Member
участник
Last Login: 01.04.2008 18:41
Сообщ.: 22,
Visits: 162
|
|
Разобрался, спасибо Pavel55, в ответе на мой прежний вопрос он использует функцию ShellExecute. В общем вот код: 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
мне нужно было запустить файл .chm, но так же можно запустить практически любой файл.
|
|
|
|