Обзор
Можно вызывать функции Windows API ShellExecute() из Visual Basic для приложений макроса для запуска другой программы под Windows. Для временного решения следующее ограничение второй команды используйте ShellExecute() вместо оболочки (оператор Visual Basic) или WinExec() (функции Windows API):
Оболочки и WinExec()не удается запустить приложение, указав только имя файла. Например следующая инструкция оболочки потерпит неудачу:
x = Shell("C:\My Documents\Book1.Xls")
Дополнительные сведения
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и без гарантии или подразумеваемых. Это включает, но не ограничиваясь, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры, но не выполнять модификации примеров для обеспечения дополнительных функциональных возможностей или создания процедур для определенных требований. Ниже представлен пример Visual Basic для приложений макроса, который вызывает функцию ShellExecute() Windows API. ShellExecute() определяет, является ли Microsoft Excel уже запущена; Если это так, он загружает Book1.xls в текущем сеансе Microsoft Excel. Если Microsoft Excel не запущена, ShellExecute() запускает Microsoft Excel и загружает Book1.xls.
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
Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpclassname As Any, ByVal lpCaption As Any) As Long
Global Const SW_SHOWNORMAL = 1
Sub ShellExecuteExample()
Dim hwnd
Dim StartDoc
hwnd = apiFindWindow("OPUSAPP", "0")
StartDoc = ShellExecute(hwnd, "open", "C:\My Documents\Book1.xls", "", _
"C:\", SW_SHOWNORMAL)
End Sub
Функцию ShellExecute() открывает или печатает указанного файла. Ниже приведены сведения о ShellExecute() 901 904 страниц из Microsoft Windows Software Development Kit (SDK) «Справочник программиста, 2:Functions тома».
Parameters
Parameter Description
---------------------------------------------------------------------------
hwnd Identifies the parent window.
lpszOp A string specifying the operation to perform. This
string can be "open" or "print".
lpszFile Points to a string specifying the file to open.
lpszParams Points to a string specifying parameters passed to
the application when the lpszFile parameter
specifies an executable file. If lpszFile points to
a string specifying a document file, this parameter
is NULL.
lpszDir Points to a string specifying the default
directory.
fsShowCmd Specifies whether the application window is to be
shown when the application is opened. This
parameter can be one of the following values:
Value Meaning
---------------------------------------------------------------------
0 Hides the window and passes activation to another
window.
1 Activates and displays a window. If the window is
minimized or maximized, Windows restores it to its
original size and position (same as 9).
2 Activates a window and displays it as an icon.
3 Activates a window and displays it as a maximized
window.
4 Displays a window in its most recent size and
position. The window that is currently active remains
active.
5 Activates a window and displays it in its current
size and position.
6 Minimizes the specified window and activates the
top-level window in the system's list.
7 Displays a window as an icon. The window that is
currently active remains active.
8 Displays a window in its current state. The window
that is currently active remains active.
9 Activates and displays a window. If the window is
minimized or maximized, Windows restores it to its
original size and position (same as 1).
Возвращает
Возвращаемое значение является дескриптор экземпляра приложения, открытии или печати, если функция выполнена успешно. (Этот дескриптор может быть также дескриптор приложения сервера DDE.) Возврат значений меньше или равна 32 указывает сообщение об ошибке.
Ошибки
Функцию ShellExecute() возвращает значение 31, если нет сопоставления для указанного типа файлов или если нет сопоставления для указанного действия внутри типа файла. Ниже приведены другие значения возможных ошибок:
Value Meaning
---------------------------------------------------------------------------
0 System was out of memory, executable file was corrupt, or
relocations were invalid.
2 File was not found.
3 Path was not found.
5 Attempt was made to dynamically link to a task, or there
was a sharing or network-protection error.
6 Library required separate data segments for each task.
8 There was insufficient memory to start the application.
10 Windows version was incorrect.
11 Executable file was invalid. Either it was not a Windows
application, or there was an error in the .exe image.
12 Application was designed for a different operating system.
13 Application was designed for MS-DOS 4.0.
14 Type of executable file was unknown.
15 Attempt was made to load a real-mode application
(developed for an earlier version of Windows).
16 Attempt was made to load a second instance of an
executable file containing multiple data segments that
were not marked read-only.
19 Attempt was made to load a compressed executable file. The
file must be decompressed before it can be loaded.
20 Dynamic-link library (DLL) file was invalid. One of the
DLLs required to run this application was corrupt.
21 Application requires Microsoft Windows 32-bit extensions.
Комментарии
Файл, указанный с помощью параметра lpszFile может быть файл документа или исполняемого файла. Если это файл документа, эта функция открывает или печатает, в зависимости от значения параметра lpszOp. Если исполняемый файл, эта функция открывает его, даже если указывает строку «print» lpszOp.
Ссылки
Дополнительные сведения о том, как использовать примеры кода в этой статье щелкните следующий номер статьи базы знаний Майкрософт:
212536 OFF2000: запуск кода примера из статей базы знаний
Дополнительные сведения о получении справки по Visual Basic для приложений обратитесь к следующей статье Microsoft Knowledge Base:
226118 OFF2000: программные ресурсы для Visual Basic для приложений
Microsoft Windows SDK «Справочник программиста, том 2: функции,» страниц 901 904
