Office nu se închide după automatizarea de la Visual Studio .NET

Steps to reproduce the behavior

1. Porniți Visual Studio .NET.

2. În meniul Fișier, faceți clic pe Nou, apoi faceți clic pe Project. Sub Visual Basic proiect, selectați Windows, apoi faceți clic pe OK.
   
   Notă Formularul1 este creat în mod implicit.

3. Adăugați o referință la Biblioteca Microsoft Excel obiecte. Pentru a face acest lucru, urmați acești pași:
   

   1. În meniul de Project, faceți clic pe Adăugare referință.

   2. Pe fila COM, găsiți Bibliotecă de obiecte pentru Excel, apoi faceți clic pe Selectare.
      
      Pentru Microsoft Excel 2002: Microsoft Excel 10.0 Object LibraryNote
      
      Dacă nu ați făcut deja acest lucru, vă recomandăm să descărcați și să instalați Microsoft Office XP Primary Interop Assemblies (PIAS).
      
      Pentru mai multe informații despre Office PIAS XP, accesați următorul articol din Baza de cunoștințe Microsoft:
      

      328912 Microsoft Office asamblări (PIA) principale XP sunt disponibile pentru descărcare
        Pentru Microsoft Office Excel 2003: Microsoft Excel de obiecte 11.0

   3. Faceți clic pe OK în caseta de dialog Adăugare referințe pentru a accepta selecțiile.

4. În meniul Vizualizare, faceți clic pe Casetă de instrumente, apoi glisați un control Buton în Formular1.

5. Faceți dublu clic pe Buton1.
   
   Notă Apare fereastra de cod pentru formular.

6. Adăugați următorul cod în partea de sus a Form1.vb:

   Imports Microsoft.Office.Interop
   

7. Înlocuiți următorul cod în fereastra codului:

       Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
       End Sub
   

   Înlocuiți următorul cod:

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim oApp As New Excel.Application()
       Dim oBook As Excel.Workbook = oApp.Workbooks.Add
       Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
   
       oSheet = Nothing
       oBook.Close(False)
       oBook = Nothing
       oApp.Quit()
       oApp = Nothing
   
       Debug.WriteLine("Sleeping...")
       System.Threading.Thread.Sleep(5000)
       Debug.WriteLine("End Excel")
   End Sub
   

8. Apăsați F5 pentru a rula aplicația.

9. Deschideți Windows de activități. În Visual Studio, afișați fereastra Rezultat pentru a vedea mesajele de depanare. Faceți clic pe butonul de comandă. Observați că o instanță de Excel.exe apare în lista Procese.

10. Instanța de Excel încă rulează în lista de activități, chiar și după ce aplicația s-a terminat de adormit. Închideți caseta de dialog și observați Excel mai apare în lista Procese.

11. Când urmați pașii din secțiunea "Rezoluție", aplicația Office iese după ce eliberează ultima variabilă. Înlocuiți funcția din Pasul 5, utilizând următorul cod:

      Private Sub NAR(ByVal o As Object)
        Try
          While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
          End While
        Catch
        Finally
          o = Nothing
        End Try
      End Sub
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oApp As New Excel.Application()
        Dim oBooks As Excel.Workbooks = oApp.Workbooks
        Dim oBook As Excel.Workbook = oBooks.Add
        Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
    
        NAR(oSheet)
        oBook.Close(False)
        NAR(oBook)
        NAR(oBooks)
        oApp.Quit()
        NAR(oApp)
    
        Debug.WriteLine("Sleeping...")
        System.Threading.Thread.Sleep(5000)
        Debug.WriteLine("End Excel")
    End Sub
    

Dacă utilizați Visual C# .NET, faceți referire la codul pentru funcția NAR():

private void NAR(object o)
{
    try 
    {
        while (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0) ;
    }
    catch {}
    finally 
    {
        o = null;
    }
}

Notă Începând cu .NET Framework 2.0, puteți utiliza System.Runtime.InteropServices.În locul rezumatuluiComObject în locul apelării în buclă System.Runtime.InteropServices.Serif.ReleaseComObject pentru a obține același rezultat.
 

Depanarea problemelor

Notă Dacă urmați pașii descriți în secțiunea "Pașii de reproducere a comportamentului", iar serverul tot nu se închide, puteți utiliza GC. Metoda Colectare() și GC. Metoda WaitForPending Cevalizers() după ce eliberați ultimul obiect. Deoarece timpul de rulare execută coșul de gunoi de la RCW, GC. Metoda Collect() forțează coșul de gunoi să ruleze și poate lansa orice referințe pe care RCW le are încă. Este GC. Metoda Collect() încearcă să revendice memoria maximă disponibilă. Observați că acest lucru nu garantează că va fi recuperată toată memoria.

Se aplică la

Acest articol se aplică și la:

• Microsoft Visual Basic .NET (toate edițiile)

• Microsoft Visual C# .NET (toate edițiile)

• Microsoft Office 2016 (toate edițiile)

• Microsoft Office 2013 (toate edițiile)