Office-toepassing wordt niet afgesloten nadat de automatisering van Visual Studio .net client

• Elk object declareren als een nieuwe variabele. Wijzig bijvoorbeeld de volgende regel code

  oBook = oExcel.Workbooks.Add()
  					

  in het volgende:

  dim oBooks as Excel.Workbooks
  oBooks = oExcel.Workbooks
  oBook = oBooks.Add()
  					

• Gebruik System.Runtime.InteropServices.Marshal.ReleaseComObject herhaald totdat het resultaat 0 wanneer u klaar bent met een object. De System.Runtime.InteropServices.Marshal.ReleaseComObject verlaagt de referentietelling van de RCW en de lus ervoor zorgen zal dat de onderliggende COM-component wordt losgelaten, ongeacht hoe vaak wordt de CLR is ingevoerd.
• Om de verwijzing naar de variabele, de variabele instellen gelijk aan Niets of Null.
• Gebruik de Afsluiten methode van het application-object van Office naar de server te vertellen afgesloten.

Naar boven | Geef ons feedback

Stappen om het gedrag te reproduceren

1. Start Visual Studio .net.
2. Klik op Nieuw in het menu bestand en klik vervolgens op Project. Selecteer Windows-toepassing onder Visual Basic-projectenen op OK. Form1 wordt standaard gemaakt.
3. Een verwijzing naar de Objectbibliotheek van Microsoft Exceltoevoegen. Hiertoe de volgende stappen uit:
   1. Klik op Add Referencein het menu Project .
   2. Zoek de objectbibliotheek voor Excel op het tabblad COM en klik op selecteren.
      
      Voor Microsoft Excel 2002: Microsoft Excel 10.0 Object Library
      
      Opmerking Als u dat nog niet hebt gedaan, is het raadzaam dat u Download en installeer de Microsoft Office XP Primary Interop Assemblies (PIA) wordt uitgevoerd. Voor meer informatie over Office XP PIA's, klikt u op het volgende artikelnummer om het artikel in de Microsoft Knowledge Base:
      328912

      (http://support.microsoft.com/kb/328912/ )

      Microsoft Office XP primary interop assemblies (PIA) zijn beschikbaar voor downloaden
      Voor Microsoft Office Excel 2003: Microsoft Excel 11.0-objectbibliotheek
   3. Klik op OK in het dialoogvenster Verwijzingen toevoegen in uw selecties.
4. In het menu Beeld op werkseten sleep vervolgens een besturingselement opdrachtknop naar Form1.
5. Dubbelklik op Button1. Het codevenster voor het formulier wordt weergegeven.
6. Voeg de volgende code boven aan Form1.vb:

   Imports Microsoft.Office.Interop
   					

7. Vervang de code in het codevenster

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

   met het volgende:

   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. Druk op F5 om de toepassing te starten.
9. Open Windows Taakbeheer. Weergeven in Visual Studio de Het uitvoervenster naar de debug-berichten. Klik op de opdrachtknop en dat een exemplaar van Excel.exe verschijnt in de lijst processen .
10. Het exemplaar van Excel nog steeds uitgevoerd in de taaklijst zelfs Nadat de toepassing is voltooid in de slaapstand staat. Sluit het dialoogvenster en let Excel wordt niet langer weergegeven in de lijst processen .
11. Wanneer u de stappen in de sectie 'Oplossing' implementeren de Office-toepassing wordt afgesloten nadat het de laatste variabele vrijgegeven. Vervang de functie in stap 5 met de volgende code:

      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
    					

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

Problemen oplossen

Naar boven | Geef ons feedback