Excel-Prozess nicht schließen VB.net

Manuelle Speicherverwaltung wie das eben nie funktioniert. Dies ist ein problem, das bekannt ist für sehr lange Zeit, und der Kern Grund dafür, dass Müll-Sammler waren erfunden. Die Programmierer einfach für immer vergessen, um Speicher freizugeben.

Wird es extra hart, wenn Sie nicht sehen können den Arbeitsspeicher verwendet wird. Das ist sicherlich der Fall in Ihrem code, die xlWorkSheet.Cells(i + 1, j + 1) Ausdruck verwendet nicht weniger als drei Referenzen. Eine für das range-Objekt zurückgegeben, indem die Zellen-Eigenschaft, eine für ein sub-range "- Objekt ausgewählt i+1 und eine für die sub-range " - Objekt ausgewählt j+1. Sehr schöne syntax-Zucker-zur Verfügung gestellt von der VB.NET Sprache, schreiben von COM-code, ohne ist es ziemlich doggone schmerzhaft. Aber nicht hilfreich, lassen Sie die Referenzen. Nicht nur können Sie es nicht sehen in deinem source-code, es gibt absolut nichts, was der debugger für Sie tun können sehen Sie.

Dies ist sehr viel ein problem in .NET, es hat einen garbage collector und kann es sehen alles. Das grundlegendste problem ist, dass Sie nicht ihm eine chance geben, Ihr problem zu lösen. Die Fehler, die Sie gemacht ist, dass Sie gestoppt. Wahrscheinlich durch setzen eines Breakpoints auf die Letzte Anweisung und dann suchen die im Task-Manager und sehen Excel.exe immer noch läuft. Ja, das ist normal. Garbage collection ist nicht sofortige.

Aufruf von GC.Collect() ist, soll es sofort, aber das funktioniert nicht in dem speziellen Fall der Ausführung des Debug-build des Projekts. Die Lebensdauer von lokalen Variablen wird dann erweitert, um das Ende der Methode, damit Sie sehen, Sie in die Autos/Einheimischen/Watch Fenster. In anderen Worten, GC.Collect() nicht wirklich sammeln alle des interface-Referenzen. Mehr über das Verhalten in dieser Beitrag.

Die einfache Lösung ist, um nicht aufhören. Halten Sie daran, nützliche Dinge zu geben, die der garbage collector einen Grund zu laufen. Oder lassen Sie Ihr Programm beenden, da es fertig ist, wird Excel beendet, wenn der finalizer-thread läuft zum letzten mal. Das funktioniert, weil die lokalen Variablen, die Referenzen sind nicht im Lieferumfang mehr.

Aber jeder will, dass die Korrektur sowieso. Sie bekommen es durch löschen aller releaseObject () - Aufrufe. Und tun Sie es wie folgt statt:

converToExcel(path, dset)
GC.Collect()
GC.WaitForPendingFinalizers()

Oder in anderen Worten, die Kraft, eine Sammlung nach der Methode zurückgegeben hat. Die lokalen Variablen nicht mehr im Rahmen, so dass Sie nicht halten, um eine Excel-Referenz. Es wird jetzt auch funktionieren, wenn Sie Debuggen, wie es schon damals, als Sie lief die Version ohne debugger.

Den GC.Sammeln macht nicht viel Sinn, wo Sie es platziert, wenn überhaupt sollten Sie es nennen wenn du wieder von converToExcel. Auch Sie müssen warten, bis Finalizer ausgeführt werden. Ich persönlich denke, dass Hans' Antwort ist der Weg zu gehen, aber ich weiß aus eigener Erfahrung schreiben, office-addins in C# und manchmal ist es notwendig, um manuelle Referenz zählen, insbesondere, wenn Sie benötigen, um die Kompatibilität mit älteren office-Versionen. (Es gibt viele dokumentierte Probleme, insbesondere bei der Behandlung von Ereignissen aus dem Amt, die können nur zuverlässig gelöst durch manuelles reference counting. Auch einige COM-Bibliotheken nicht mögen, wenn veröffentlicht, in der falschen Reihenfolge von GC, aber das ist nicht der Fall mit office.)

Also auf, um das eigentliche problem in deinem code: es gibt drei intermediate COM-Objekte nicht freigegeben, hier:

• xlWorkBook.Sheets gibt eine collection zurück geben Excel.Sheets
• xlWorkSheet.Columns gibt ein COM-Objekt vom Typ Excel.Range
• xlWorkSheet.Cells gibt auch einen Excel.Range Objekt

Neben dieser, wenn Marschall.ReleaseComObject eine exception wirft Sie etwas falsch gemacht haben in Ihrem Handbuch "reference counting", daher würde ich Sie nicht wickeln Sie es in einem exception-handler. Wenn dabei manuelle Referenz zu zählen, die Sie loslassen müssen, jedes COM-Objekt, einmal für jedes mal, wenn Sie über den COM->NETTO-Grenze, d.h. die Excel.Range Objekte müssen freigegeben werden in jeder iteration der Schleife.

Hier ist code, der ordnungsgemäß beendet Excel für mir:

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Private Sub converToExcel(fileLoc As String, ds As DataSet)
    Dim xlApp As New Excel.Application
    Dim xlWorkBooks As Excel.Workbooks = xlApp.Workbooks
    Dim xlWorkBook As Excel.Workbook = xlWorkBooks.Add(System.Reflection.Missing.Value)
    Dim xlWorkSheets As Excel.Sheets = xlWorkBook.Sheets
    ' accessing the sheet by index because name is localized and your code will fail in non-english office versions
    Dim xlWorkSheet As Excel.Worksheet = xlWorkSheets(1)

    For i = 0 To ds.Tables(0).Rows.Count - 1
        For j = 0 To ds.Tables(0).Columns.Count - 1
            ' couldn't this be moved outside the loop?
            Dim xlColumns As Excel.Range = xlWorkSheet.Columns
            xlColumns.NumberFormat = "@"
            Marshal.ReleaseComObject(xlColumns)

            Dim xlCells As Excel.Range = xlWorkSheet.Cells
            xlCells(i + 1, j + 1) = ds.Tables(0).Rows(i).Item(j).ToString()
            Marshal.ReleaseComObject(xlCells)
        Next
    Next

    xlWorkSheet.SaveAs(fileLoc)
    'xlWorkBook.Close() -- not really necessary
    xlApp.Quit()

    Marshal.ReleaseComObject(xlWorkSheet)
    Marshal.ReleaseComObject(xlWorkSheets)
    Marshal.ReleaseComObject(xlWorkBook)
    Marshal.ReleaseComObject(xlWorkBooks)
    Marshal.ReleaseComObject(xlApp)
End Sub

Wenn Sie wollen besonders vorsichtig sein, wollen Sie die Ausnahmen behandeln, die aus der office-API und rufen ReleaseComObject innen endlich-Klauseln. Es kann hilfreich sein zu definieren, ein generischer wrapper und schreiben, mit Punkt statt des try-finally (machen die wrapper-Struktur, die nicht einer Klasse, so brauchen Sie nicht reservieren der Wrapper auf dem heap).

Endlich gelöst 🙂

Private Function useSomeExcel(ByVal Excelfilename As String) 
  Dim objExcel As Excel.Application
  Dim objWorkBook As Excel.Workbook
  Dim objWorkSheets As Excel.Worksheet

  Dim datestart As Date = Date.Now
  objExcel = CreateObject("Excel.Application") 'This opens...  
  objWorkBook = objExcel.Workbooks.Open(Excelfilename) ' ... excel process
  Dim dateEnd As Date = Date.Now
  End_Excel_App(datestart, dateEnd) ' This closes excel proces
End Function

verwenden Sie diese Methode,

  Private Sub End_Excel_App(datestart As Date, dateEnd As Date)
    Dim xlp() As Process = Process.GetProcessesByName("EXCEL")
    For Each Process As Process In xlp
     If Process.StartTime >= datestart And Process.StartTime <= dateEnd Then
       Process.Kill()
       Exit For
     End If
    Next
  End Sub

Diese Methode schließt especific Prozess eröffnet.

Dim xlp() As Process = Process.GetProcessesByName("EXCEL")

 For Each Process As Process In xlp
   Process.Kill()
     If Process.GetProcessesByName("EXCEL").Count = 0 Then
       Exit For
     End If
 Next