Tóm tắt
Bạn có thể gọi hàm Windows API ShellExecute() từ Visual Basic cho ứng dụng macro để bắt đầu một chương trình Microsoft Windows. Sử dụng ShellExecute() thay vì vỏ (câu lệnh Visual Basic) hoặc WinExec() (hàm Windows API) để hạn chế sau đây của các lệnh sau:
Vỏ và WinExec(), bạn không thể khởi động ứng dụng bằng cách xác định tên tập tin chỉ. Ví dụ, lệnh sau vỏ sẽ thất bại:
x = Shell("C:\My Documents\Book1.Xls")
Thông tin
Microsoft cung cấp mô hình lập trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở các bảo đảm cho một mục đích cụ thể hoặc sự. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được giải thích và các công cụ được sử dụng để tạo và quy trình gỡ lỗi. Các kỹ sư hỗ trợ Microsoft có thể giúp giải thích các chức năng của một quy trình cụ thể, nhưng chúng sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình nhằm đáp ứng các yêu cầu cụ thể của bạn. Dưới đây là mẫu Visual Basic cho macro ứng dụng gọi hàm ShellExecute() Windows API. ShellExecute() xác định xem Microsoft Excel đang chạy; Nếu có, nó tải hạn Book1.xls vào Microsoft Excel phiên hiện tại. Nếu Microsoft Excel đang không chạy, ShellExecute() khởi động Microsoft Excel và tải hạn 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
Chức năng ShellExecute() mở hoặc in các tệp đã chỉ định. Dưới đây là thông tin về ShellExecute() từ trang 901-904 của bộ Microsoft Windows phần mềm phát triển (SDK) "Trình của tham chiếu, ổ đĩa 2:Functions."
Tham số
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).
Lợi nhuận
Giá trị trả lại là điều khiển phiên bản của ứng dụng được mở hoặc in, nếu chức năng thành công. (Xử lý này cũng có thể điều khiển ứng dụng máy chủ DDE.) Trở về giá trị nhỏ hơn hoặc bằng 32 xác định lỗi.
Lỗi
Hàm ShellExecute() trả lại giá trị 31 nếu không có liên kết cho loại tệp đã chỉ định hoặc nếu không có liên kết động được chỉ định trong loại tệp. Các giá trị lỗi có thể là như sau:
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.
Chú thích
Tệp được chỉ định bởi tham số lpszFile có thể là tập tài liệu hoặc tệp thi hành. Nếu tệp tài liệu, chức năng này mở hoặc in, tùy thuộc vào giá trị tham số lpszOp. Nếu tệp thi hành, chức năng này mở ra, ngay cả khi chuỗi "in" được đề cập đến bằng lpszOp.
Tham khảo
Để biết thêm thông tin về cách sử dụng mã mẫu trong bài viết này, bấm số bài viết sau để xem bài viết trong cơ sở kiến thức Microsoft:
212536 OFF2000: làm thế nào để chạy mã mẫu từ bài viết cơ sở kiến thức
Để biết thêm thông tin về việc trợ giúp với Visual Basic cho ứng dụng, hãy xem bài viết sau trong cơ sở kiến thức Microsoft:
226118 OFF2000: tài nguyên lập trình Visual Basic for Applications
Microsoft Windows SDK "tham chiếu của lập trình, ổ đĩa 2: chức năng" trang 901-904
