Sumário
Pode chamar a função de API do Windows ShellExecute () a partir de uma macro Visual Basic for Applications para iniciar outro programa no Microsoft Windows. Utilize ShellExecute () em vez de Shell (uma instrução do Visual Basic) ou WinExec (uma função de API do Windows) para contornar a limitação dos últimos comandos:Com o reservatório e WinExec (), não é possível iniciar uma aplicação especificando apenas um nome de ficheiro. Por exemplo, a seguinte instrução de Shell irá falhar:
x = Shell("C:\My Documents\Book1.Xls")
Mais informações
Microsoft fornece exemplos de programação apenas, a título sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. é uma macro de exemplo do Visual Basic for Applications que chama a função de API do Windows ShellExecute () . ShellExecute () determina se o Microsoft Excel já está em execução; Se assim for, carrega Book1. xls na sessão actual do Microsoft Excel. Se o Microsoft Excel não já está em execução, ShellExecute () inicia o Microsoft Excel e carrega 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 LongDeclare Function apiFindWindow Lib "User32" Alias "FindWindowA" _ (ByVal lpclassname As Any, ByVal lpCaption As Any) As LongGlobal Const SW_SHOWNORMAL = 1Sub ShellExecuteExample() Dim hwnd Dim StartDoc hwnd = apiFindWindow("OPUSAPP", "0") StartDoc = ShellExecute(hwnd, "open", "C:\My Documents\Book1.xls", "", _ "C:\", SW_SHOWNORMAL)End Sub
A função ShellExecute () abre ou imprime o ficheiro especificado. Seguem-se informações sobre ShellExecute () de páginas 901-904 do Microsoft Windows Software Development Kit (SDK) "Programmer ' s Reference, Volume 2: Functions."
Parâmetros
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).
Devolve
O valor devolvido é o identificador de instância da aplicação que foi aberta ou impressa, se a função tiver êxito. (Esta alça também poderia ser o identificador de uma aplicação de servidor DDE.) Um valor de retorno inferior ou igual a 32 Especifica um erro.
Erros
A função ShellExecute () devolve o valor 31 se não existir nenhuma associação para o tipo de ficheiro especificado ou se não existir nenhuma associação para a acção especificada no tipo de ficheiro. Os outros valores de erro possíveis são os seguintes: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.
Comentários
O ficheiro especificado pelo parâmetro lpszFile pode ser um ficheiro de documento ou um ficheiro executável. Se for um ficheiro de documento, esta função abre ou imprime-o, consoante o valor do parâmetro lpszOp. Se for um ficheiro executável, esta função abre-o, mesmo se a cadeia "print" seja apontada por lpszOp.
Referências
Para mais informações sobre como utilizar o código de exemplo neste artigo, clique no número de artigo abaixo para visualizar o artigo na Microsoft Knowledge Base:
212536 OFF2000: como executar o código de exemplo artigos da Knowledge BasePara mais informações sobre como obter ajuda com o Visual Basic for Applications, consulte o seguinte artigo na Microsoft Knowledge Base:
226118 OFF2000: recursos de programação para Visual Basic for ApplicationsMicrosoft Windows SDK "Programmer Reference, Volume 2: funções," páginas 901-904