Sumário

Você pode chamar a função de API do Windows ShellExecute () de um Visual Basic for Applications macro para iniciar outro programa no Microsoft Windows. Use ShellExecute () em vez de Shell (uma instrução do Visual Basic) ou WinExec() (uma função de API do Windows) para resolver a limitação dos últimos comandos seguinte:Com o Shell e WinExec(), você não pode iniciar um aplicativo, especificando um nome de arquivo. Por exemplo, a seguinte instrução de Shell falhará:

x = Shell("C:\My Documents\Book1.Xls")

Mais informações

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas. a seguir é um exemplo do Visual Basic for Applications macro que chama a função de API do Windows ShellExecute () . ShellExecute () determina se o Microsoft Excel está sendo executado; em caso afirmativo, ele carrega Book1. xls na sessão atual do Microsoft Excel. Se o Microsoft Excel não estiver sendo executado, 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 arquivo especificado. A seguir estão informações sobre ShellExecute () de páginas 901-904 da "Referência do programador, Volume 2:Functions." do Microsoft Windows Software Development Kit (SDK)

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).

Retorna

O valor de retorno é o identificador de instância do aplicativo que foi aberto ou impresso, se a função tiver êxito. (Essa alça também poderia ser a alça de um aplicativo servidor DDE.) Um retorno de valor menor ou igual a 32 Especifica um erro.

Erros

A função ShellExecute () retorna o valor 31 se não houver nenhuma associação para o tipo de arquivo especificado ou se não houver nenhuma associação para a ação especificada no tipo de arquivo. 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 arquivo especificado pelo parâmetro lpszFile pode ser um arquivo de documento ou um arquivo executável. Se for um arquivo de documento, esta função abre ou imprime, dependendo do valor do parâmetro lpszOp. Se é um arquivo executável, esta função abre-lo, mesmo que a sequência de caracteres "print" é apontada por lpszOp.

Referências

Para obter mais informações sobre como usar o código de exemplo neste artigo, clique no número abaixo para ler o artigo na Base de Conhecimento da Microsoft:

212536 OFF2000: como executar o código de exemplo de artigos da Base de ConhecimentoPara obter mais informações sobre como obter ajuda com o Visual Basic for Applications, consulte o seguinte artigo da Base de Conhecimento Microsoft:

226118 OFF2000: recursos de programação para Visual Basic for ApplicationsSDK do Microsoft Windows "referência do programador, Volume 2: funções," páginas 901-904

Precisa de mais ajuda?

Quer mais opções

Explore os benefícios da assinatura, procure cursos de treinamento, saiba como proteger seu dispositivo e muito mais.