Sammendrag
Du kan kalle funksjonen ShellExecute() Windows API fra et Visual Basic for Applications-makro til å starte et annet program under Microsoft Windows. Bruke ShellExecute() i stedet for skallet (en Visual Basic-setning) eller WinExec() (en Windows API-funksjonen) til å omgå følgende begrensning av sistnevnte kommandoer:
Du kan ikke starte et program ved å angi et filnavn bare med Shell og WinExec(). For eksempel ikke følgende Shell -setning:
x = Shell("C:\My Documents\Book1.Xls")
Hvis du vil ha mer informasjon
Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de endrer ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov. Nedenfor er et eksempel på Visual Basic for Applications-makro som kaller funksjonen ShellExecute() Windows API. ShellExecute() bestemmer om Microsoft Excel er allerede kjører. Hvis dette er tilfelle, laster Bok1.xls i gjeldende Microsoft Excel-økt. Hvis Microsoft Excel ikke allerede kjører, ShellExecute() starter Microsoft Excel, og laster inn Bok1.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
Funksjonen ShellExecute() åpner eller skriver ut den angitte filen. Nedenfor finner du informasjon om ShellExecute() fra sidene 901 904 av den Microsoft Windows Software Development Kit (SDK) "Programmeringsreferanse volumet 2:Functions."
Parametere
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).
Returnerer
Returverdien er forekomstreferansen for programmet som ble åpnet eller skrives ut, hvis funksjonen er vellykket. (Dette håndtaket kan også være håndtaket til et DDE-serverprogram.) Retur verdi mindre enn eller lik 32 angir en feil.
Feil
Funksjonen ShellExecute() returnerer verdien 31 Hvis det ikke finnes en tilknytning for den angitte filtypen, eller hvis det ikke finnes en tilknytning for den angitte handlingen i filtypen. Andre mulige feilverdiene er som følger:
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.
Kommentarer
Filen som er angitt av parameteren lpszFile kan være en fil eller en kjørbar fil. Hvis det er en dokumentfil, kan denne funksjonen åpnes eller skrives ut, avhengig av verdien for parameteren lpszOp. Hvis det er en kjørbar fil, åpnes denne funksjonen, selv om strengen "Skriv ut" er angitt av lpszOp.
Referanser
Hvis du vil ha mer informasjon om hvordan du bruker eksempelkoden i denne artikkelen, kan du klikke følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:
212536 OFF2000: hvordan kjøre eksempelkode fra Knowledge Base-artikler
Hvis du vil ha mer informasjon om hvordan du får hjelp med Visual Basic for Applications, kan du se følgende artikkel i Microsoft Knowledge Base:
OFF2000 226118 : programmeringsressurser for Visual Basic for Applications
Microsoft Windows SDK "Programmeringsreferanse volum 2: funksjoner," sider 901 904
