Как открыть pdf-файл - VBA - Ответ 5576717

Простой способ открыть файл, связанный с каким либо приложением Windows
Автор: Роман Коновалов

Под Windos NT:


Shell "cmd /X /C start c:\mydoc\example.doc"


Под Windos 9x:

Shell "start c:\mydoc\example.doc"


При способе, предложенном Автором появляется минимизированое окно Command Prompt.
Не всем юзерам это нравиться. Как альтернативу можно использовать
API функцию ShellExecute. Для этого необходимо испльзовать декларацию:

' Декларация функции для запуска файла.
Public 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

' Декларация константы для максимизирования окна открываемого приложения.
' Для работы с другими константами смотрите MSDN.
Public Const SW_SHOWMAXIMIZED = 3

'После этого нижеследующий код будет открывать файл test.xls.

Call ShellExecute(0, "open", "test.xls","", "", SW_SHOWMAXIMIZED)