GetObject o GetActiveObject no pueden encontrar una aplicación de Office en ejecución

Se aplica a: Productos Office

Síntomas


Cuando intenta usar GetObject (Microsoft Visual Basic) o GetActiveObject (Microsoft Visual C++) para automatizar una aplicación de Microsoft Office, recibe uno de los siguientes mensajes de error, aunque la aplicación de Office se esté ejecutando:
Mensaje de error 1
Error en tiempo de ejecución ' 429 ': el componente ActiveX no puede crear el objeto
Mensaje de error 2
Error: 0x800401e3 "operación no disponible"

Causa


Aunque la aplicación de Office se esté ejecutando, es posible que no esté registrada en la tabla de objetos en ejecución (ROT). Una instancia en ejecución de una aplicación de Office debe registrarse en la tabla ROT antes de que se pueda adjuntar a mediante GetObject (Visual Basic) o GetActiveObject (Visual C++). Cuando se inicia una aplicación de Office, no registra inmediatamente los objetos que se están ejecutando. Esto optimiza el proceso de inicio de la aplicación. En lugar de registrarse en el inicio, una aplicación de Office registra los objetos que se están ejecutando en la ROT una vez que pierde el foco. Por lo tanto, si intenta usar GetObject o GetActiveObject para adjuntar a una instancia en ejecución de una aplicación de Office antes de que la aplicación haya perdido el foco, es posible que reciba uno de los errores anteriores.

Resolución


Con el código, puede cambiar el foco de la aplicación de Office a su propia aplicación (o a otra aplicación) para permitir que se registre en la tabla ROT. Además, si el código inicia el archivo exe de la aplicación de Office, es posible que tenga que esperar a que la aplicación de Office termine de cargarse antes de intentar adjuntarla a la instancia en ejecución. Se proporciona un ejemplo de código como solución alternativa en la sección "más información".

Estado


Este comportamiento es una característica del diseño de la aplicación.

Más información


En la mayoría de los casos, los programadores que deseen automatizar una aplicación de Office deben usar CreateObject (Visual Basic) o CoCreateInstance (Visual C++) para iniciar una nueva instancia de la aplicación de Office. Sin embargo, hay casos en los que puede preferir automatizar una aplicación de Office que ya se está ejecutando: por ejemplo, si el usuario ha iniciado previamente la aplicación de Office. O bien, si inició el ejecutable de la aplicación de Office con el código para poder especificar modificadores de la línea de comandos para la aplicación. Para automatizar la aplicación de Office en ejecución, debe usar GetObject o GetActiveObject.

Pasos para reproducir este comportamiento

  1. Inicie Microsoft Visual Basic y cree un nuevo proyecto EXE estándar. Se creará Form1 de forma predeterminada.
  2. Agregue un control CommandButton a Form1.
  3. Agregue el código siguiente al módulo de código del formulario.
    Private Sub Command1_Click()    Dim oExcel As Object    ' Launch a new instance of Microsoft Excel:    Shell "C:\Program Files\Microsoft Office\Office\Excel.EXE", _       vbMinimizedNoFocus    ' An error 429 occurs on the following line:    Set oExcel = GetObject(, "Excel.Application")    MsgBox oExcel.Name    Set oExcel = NothingEnd Sub
  4. Asegúrese de que la ubicación de Excel. exe es correcta en el ejemplo de código.
  5. Salga de Microsoft Excel si ya se está ejecutando.
  6. Presione F5 para ejecutar el proyecto y haga clic en Command1.

Solución alternativa

Para evitar el problema, puede hacer lo siguiente:
  • Dé el foco a la aplicación de Office cambiando el segundo argumento de la función de Shell a vbMinimizedFocus, vbMaximizedFocuso vbNormalFocus.
  • Dé el foco a su formulario de Visual Basic.
  • Intente realizar una contabilidad del tiempo de carga de la aplicación de Office.
El siguiente código revisado muestra esta solución alternativa.
Private Declare Sub Sleep Lib "kernel32" _    (ByVal dwMilliseconds As Long)Private Sub Command1_Click()    Dim intSection As Integer    Dim intTries As Integer    Dim oExcel As Object        ' Enable error handler for this procedure:    On Error GoTo ErrorHandler        ' Launch Microsoft Excel, giving it focus:    Shell "C:\Program Files\Microsoft Office\Office\Excel.EXE", _        vbMinimizedFocus 'other options for starting with        'focus: vbMaximizedFocus and vbNormalFocus        ' Move focus back to this form. (This ensures the Office    '  application registers itself in the ROT, allowing    '  GetObject to find it.)    Me.SetFocus        ' Attempt to use GetObject to reference the running    '  Office application:    intSection = 1 'attempting GetObject...    Set oExcel = GetObject(, "Excel.Application")    intSection = 0 'resume normal error handling        ' Now you can automate Microsoft Excel:    MsgBox oExcel.Name & ": able to GetObject after " & _        intTries + 1 & " tries.", vbMsgBoxSetForeground        ' Finished with automation so release your reference:    Set oExcel = Nothing        ' Exit procedure:    Exit Sub    ErrorHandler:    If intSection = 1 Then 'GetObject may have failed because the    'Shell function is asynchronous; enough time has not elapsed    'for GetObject to find the running Office application. Wait    'wait 1/2 seconds and retry the GetObject. If you try 20 times    'and GetObject still fails, assume some other reason    'for GetObject failing and exit the procedure.        intTries = intTries + 1        If intTries < 20 Then            Sleep 500 ' wait 1/2 seconds            Resume 'resume code at the GetObject line        Else            MsgBox "GetObject still failing. Process ended.", _                vbMsgBoxSetForeground        End If    Else 'intSection = 0 so use normal error handling:        MsgBox Error$    End IfEnd Sub

Solución alternativa para C++

Si programa en C++, el siguiente ejemplo de código muestra una solución similar a la que se muestra en el ejemplo anterior de Visual Basic. Observe que SetForegroundWindow se usa para desplazar el foco fuera de Excel, lo que le permite registrar sus objetos en ejecución.
//Store the handle of the currently active window...HWND hwndCurrent = ::GetForegroundWindow();//Launch Excel and wait until it is waiting for//user input...STARTUPINFO Start;PROCESS_INFORMATION ProcInfo;ZeroMemory(&Start,sizeof(STARTUPINFO));Start.cb=sizeof(Start);Start.dwFlags = STARTF_USESHOWWINDOW;Start.wShowWindow = SW_SHOWMINIMIZED;//Change the path to Excel as needed...LPSTR pszExcelPath =       "c:\\program files\\microsoft office\\office\\excel.exe";::CreateProcess(NULL, pszExcelPath, 0, 0, 1,       NORMAL_PRIORITY_CLASS, 0, NULL, &Start, &ProcInfo);if((::WaitForInputIdle(ProcInfo.hProcess, 10000))==WAIT_TIMEOUT){    ::MessageBox(NULL, "Timed out waiting for Excel.", NULL,                   MB_OK);}//Restore the active window to the foreground...//  NOTE: If you comment out this line, the code will fail!::SetForegroundWindow(hwndCurrent);//Initialize COM library...::CoInitialize(NULL);//Attach to the running instance...CLSID clsid;CLSIDFromProgID(L"Excel.Application", &clsid);  IUnknown *pUnk = NULL;IDispatch *pDisp = NULL;for(int i=1;i<=5;i++) //try attaching for up to 5 attempts{   HRESULT hr = GetActiveObject(clsid, NULL, (IUnknown**)&pUnk);   if(SUCCEEDED(hr))    {       hr = pUnk->QueryInterface(IID_IDispatch, (void **)&pDisp);       break;   }   ::Sleep(1000);}        if (!pDisp) {    ::MessageBox(NULL, "Failed to find instance!!", "Error",                  MB_ICONHAND);}else {    ::MessageBox(NULL, "Got instance of Excel!", "Success", MB_OK);}//Release the no-longer-needed IUnknown...if (pUnk)     pUnk->Release();//... Add your automation code for Excel here ...//Release pDisp when no longer needed...if (pDisp)    pDisp->Release();//Cleanup COM...CoUninitialize();

Referencias


Para obtener más información, haga clic en los números de artículo siguientes para verlos en Microsoft Knowledge Base:
192919 Cómo automatizar una base de datos de Access protegida con Visual Basic
237338 Mensaje de error al usar WordMail: "este método o propiedad no está disponible"
240794 Cómo determinar la ruta de acceso de una aplicación de Office