Запуск какой либо Windows-программы из Excel средствами VBA

[kovalevskivf]

Подскажите пожалуйста, каким образом можно запустить из программы на VBA Excel какой-нибудь файл, например файл справки chm, или exe-файл, в ответ на какое-либо событие, например нажитие кнопки.

[SAS888]

Для запуска как exe-файла, так и файла, ассоциированного с приложением, например, chm-файла, лучше использовать API-функцию ShellExecute.
Пример использования:

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) As Long
Sub OpenApp()
    URL = "D:\Temp\VB Help.chm"
    ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
End Sub

Есть и другие способы.

[kovalevskivf]

Огромное Вам спасибо за помощь!

[EducatedFool]

Ну или так:

Sub test()
    ПутьКФайлу = "C:\Documents and Settings\Игорь\Рабочий стол\4511_185_158.jpg"
    
    If Dir(ПутьКФайлу) = "" Then MsgBox "Файл  " & ИмяФайла & "  не найден", vbExclamation, "Файл не найден": Exit Sub
    ПутьКФайлу = Chr(34) & ПутьКФайлу & Chr(34)    ' добавляем кавычки до и после пути к файлу (если имя содержит пробелы)
    
    CreateObject("WScript.Shell").Run ПутьКФайлу    ' аналогично двойному щелчку мыши на файле
End Sub