GetObject o GetActiveObject non riesce a trovare un'applicazione di Office in uso

Sintomi

Quando si prova a usare GetObject (Microsoft Visual Basic) o GetActiveObject (Microsoft Visual C++) per automatizzare un'applicazione di Microsoft Office, viene visualizzato uno dei messaggi di errore seguenti, anche se l'applicazione di Office è in esecuzione:

Messaggio di errore 1

Messaggio di errore 2

Causa

Anche se l'applicazione di Office è in uso, potrebbe non essere registrata nella tabella degli oggetti in uso (ROT). Un'istanza in esecuzione di un'applicazione di Office deve essere registrata nella tabella ROT prima di poterla associare all'uso di GetObject (Visual Basic) o GetActiveObject (Visual C++). Quando un'applicazione di Office viene avviata, non registra immediatamente gli oggetti in uso. Questo ottimizza il processo di avvio dell'applicazione. Invece di eseguire la registrazione all'avvio, un'applicazione di Office registra gli oggetti in esecuzione nella tabella ROT una volta che perde lo stato attivo. Di conseguenza, se tenti di usare GetObject o GetActiveObject per allegare a un'istanza in uso di un'applicazione di Office prima che l'applicazione abbia perso lo stato attivo, potresti ricevere uno degli errori descritti sopra.

Risoluzione

Usando il codice, è possibile modificare lo stato di attivazione dall'applicazione di Office alla propria applicazione (o a un'altra applicazione) per consentirne la registrazione nella tabella ROT. Inoltre, se il codice sta lanciando il file exe dell'applicazione di Office, potrebbe essere necessario attendere che l'applicazione di Office finisca il caricamento prima di provare a connettersi all'istanza in uso. Un esempio di codice viene fornito come soluzione alternativa nella sezione "altre informazioni".

Stato

Si tratta di un comportamento correlato alla progettazione del prodotto.

Ulteriori informazioni

Nella maggior parte dei casi, gli sviluppatori che vogliono automatizzare un'applicazione di Office devono usare CreateObject (Visual Basic) o CoCreateInstance (Visual C++) per avviare una nuova istanza dell'applicazione di Office. In alcuni casi, tuttavia, è preferibile automatizzare un'applicazione di Office già in uso: ad esempio, se l'utente ha avviato l'applicazione di Office in precedenza. In alternativa, se è stato avviato l'eseguibile dell'applicazione di Office usando il codice in modo da poter specificare le opzioni della riga di comando per l'applicazione. Per automatizzare l'applicazione di Office in uso, devi usare GetObject o GetActiveObject.

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

//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();

Riferimenti

Per ulteriori informazioni, fare clic sui numeri degli articoli della Microsoft Knowledge Base riportati di seguito:

192919 Come automatizzare un database di Access protetto con Visual Basic

237338 Messaggio di errore tramite WordMail: "questo metodo o proprietà non è disponibile"

240794 Come determinare il percorso di un'applicazione di Office