Excel richtig beenden

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Excel richtig beenden

    Hallo miteinader,

    gibt es mittlerweile eine richtige Möglichkeit um Excel zu Schließen?
    Excel bleibt bei mir im Hintergund offen und das behindert andere Programme manchmal.

    Das ist mein aktueller Code:

    VB.NET-Quellcode

    1. oExcel = New Excel.Application
    2. oBook = oExcel.Workbooks.Open(TabMatDatenbank,, True)
    4. Suchblatt = "Band"
    5. With oBook.Sheets(Suchblatt)
    6. .
    7. .
    8. .
    9. End With
    11. oBook.Close(False) : oBook = Nothing
    12. oExcel.Quit() : oExcel = Nothing


    Aber danach bleibt immer ein weiterer Process im Taskmanager.

    Ich weiß das es mit .kill eine Möglichkeit gibt aber ist das wirklich die einzigste und richtige Lösung?

    Grüße Felix

    CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Hallo,
    probier es mal folgendermaßen

    VB.NET-Quellcode

    1. ' ...
    2. oBook.Close(False)
    3. System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
    5. oExcel.Quit()
    6. System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)


    Edit:
    Falls du mit weiteren Variablen, wie z.B. Worksheets arbeitest, müssen diese ebenfalls über diese Mehtode freigegeben werden.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ISliceUrPanties“ ()

    fiedel93felix schrieb:

    ...leider hilft das nichts.
    .ReleaseComObject() und besser noch .FinalReleaseComObject() ist schon der richtige Ansatz, nur musste das auf jedes einzelne Com-Objekt anwenden, was du in deim Code je angefasst hast.
    Das sind meist mehr als es auf den ersten Blick scheint, und wenn eins vergessen wurde entsteht das beschriebene Fehlverhalten.

    gugge hier: Excel freigeben

    Ich nehme mal, dass trotz deiner „ReleaseComObject“-Statements noch Excel-Anwendungen im Task-Manager zu sehen sind, weil es die alten waren oder, viel eher, weil du, wie „EdR“ erwähnte, nicht alle COM-Objekte freigibst.

    Ich rufe eine asynchrone Methode auf, die die Exceldatei öffnet, bearbeitet, freigibt, und schließt.
    Auch, wenn man für gewöhnlich nicht „GC.Collect“ verwenden sollte, ist es laut Stack Overflow aber bei COM-Objekten legitim. Also tue ich, nachdem die Methode durch ist, nochmal mit „GC.Collect“ alles aufräumen.
    Dann kann es noch ein paar Sekunden dauern, bis man die Excelanwendung nicht mehr im Task-Manager sieht.

    Benutze diesen Code:

    C#-Quellcode

    1. private static void Save_close_and_release_file(string filePath, ref Application xlApp, ref Workbook workbook, ref Worksheet sheet)
    2. {
    3. try
    4. {
    5. sheet.SaveAs(filePath, XlFileFormat.xlWorkbookDefault);
    6. }
    7. catch (System.Runtime.InteropServices.COMException)
    8. { }
    10. workbook.Close();
    11. xlApp.Quit();
    13. if (sheet != null)
    14. {
    15. System.Runtime.InteropServices.Marshal.ReleaseComObject(sheet);
    16. }
    18. if (workbook != null)
    19. {
    20. System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
    21. }
    23. if (xlApp != null)
    24. {
    25. System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);
    26. }
    28. sheet = null;
    29. workbook = null;
    30. xlApp = null;
    31. }


    Viele Grüße
    PS: Der Try-Catch-Block ist für den Fall da, dass es die Datei mit demselben Namen bereits gibt. Excel fragt dich dann, ob du die Datei überschreiben möchtest. Sollte der Nutzer „Nein“ auswählen, wird eine Exception geworfen. Damit dein Programm nicht abstürzt, steht hier Try-Catch.

    Vielen Dank für die ganzen Antworten aber mit dem richtigem Freigeben von Excel das klappt nicht bzw ist mir das zu aufwendig jede angesprochene Zelle freizugeben.

    Ich mach es jetzt etwas fraglich aber funktional:
    Ich Schließes Excel und anschließend benutze ich noch das .Kill event.
    Durch diese Kombi verschwindet der Process und ich erhalte keine Meldung beim nächsten Excelstart, dass einige Dateien nicht richtig geschlossen wurden.

    VB.NET-Quellcode

    1. Protected Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr
    5. Try
    6. If TabMatGef = False Then
    7. oBook.Close(False)
    8. oExcel.Quit()
    9. Dim processId As IntPtr
    10. GetWindowThreadProcessId(oExcel.Hwnd, processId)
    11. Dim xLProcess As Process = Process.GetProcessById(processId.ToInt32())
    12. xLProcess.Kill()
    13. oBook = Nothing
    14. oExcel = Nothing
    15. End If
    16. Catch exx As Exception
    17. End Try


    CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Aufwand ist an dieser Stelle eben vorgesehen, weil das Aufräumen an sich ein wichtiger Punkt ist, und bei Excel nicht automatisch funktioniert.

    Ich verwende Excel in einer IDisposable Klasse. Hier wird ein gewisser Umfang an Elementen definiert (Felder). Die können in IrgendwasSinnvolles() genutzt werden, und dann werden sie alle aufgeräumt Dispose()
    Die Struktur der Schnittstelle ist zurecht geschnitten auf eventuelle Eventualitäten. Es geht natürlich auch ohne Struktur, aber die Idee bleibt gleich, jeder Excel.-Member soll aufgeräumt werden.

    Wie du siehst gibt es da eine List(Of Ranges) und da wird in einer Schleife jede Range (Ansammlung von Zellen) aufgeräumt.
    MeineKlasse

    VB.NET-Quellcode

    1. Friend Class ExcelHelper
    2. Implements IDisposable
    3. Private disposedValue As Boolean
    4. Private _excel As Excel.Application
    5. Private _Books As Excel.Workbooks
    6. Private _Book As Excel.Workbook
    7. Private _Sheets As Excel.Sheets
    8. Private ReadOnly _WSheets As List(Of Excel.Worksheet)
    9. Private _Sheet As Excel.Worksheet
    10. Private ReadOnly _Ranges As List(Of Excel.Range)
    11. Private _Range As Excel.Range
    13. Friend Sub New()
    14. _excel = New Excel.Application()
    15. _WSheets = New List(Of Excel.Worksheet)
    16. _Ranges = New List(Of Excel.Range)
    17. End Sub
    19. Friend Sub IrgendwasSinnvolles()
    20. '...
    21. End Sub
    22. 'eventuell mehr Methoden
    24. Protected Overridable Sub Dispose(ByVal disposing As Boolean)
    25. If Not disposedValue Then
    26. If disposing Then
    27. 'Managed Disposes here
    28. End If
    29. If _Range IsNot Nothing Then
    30. Marshal.FinalReleaseComObject(_Range)
    31. _Range = Nothing
    32. End If
    33. If _Ranges.Count > 0 Then
    34. For Each rng In _Ranges
    35. Marshal.FinalReleaseComObject(rng)
    36. Next
    37. _Ranges.Clear()
    38. End If
    39. If _Sheet IsNot Nothing Then
    40. Marshal.FinalReleaseComObject(_Sheet)
    41. _Sheet = Nothing
    42. End If
    43. If _WSheets.Count > 0 Then
    44. For Each sht In _WSheets
    45. Marshal.FinalReleaseComObject(sht)
    46. Next
    47. _WSheets.Clear()
    48. End If
    49. If _Sheets IsNot Nothing Then
    50. Marshal.FinalReleaseComObject(_Sheets)
    51. _Sheets = Nothing
    52. End If
    53. If _Book IsNot Nothing Then
    54. Marshal.FinalReleaseComObject(_Book)
    55. _Book = Nothing
    56. End If
    57. If _Books IsNot Nothing Then
    58. Marshal.FinalReleaseComObject(_Books)
    59. _Books = Nothing
    60. End If
    61. If _excel IsNot Nothing Then
    62. _excel.Quit()
    63. Marshal.FinalReleaseComObject(_excel)
    64. _excel = Nothing
    65. End If
    66. disposedValue = True
    67. End If
    68. End Sub
    70. Protected Overrides Sub Finalize()
    71. Dispose(disposing:=False)
    72. End Sub
    74. Friend Sub Dispose() Implements IDisposable.Dispose
    75. Dispose(disposing:=True)
    76. GC.SuppressFinalize(Me)
    77. End Sub
    78. End Class

    Dann nutzt sich das aber recht simpel:

    VB.NET-Quellcode

    1. Dim Excel As New ExcelHelper
    2. Try
    3. Excel.IrgendwasSinnvolles()
    4. Finally
    5. Excel.Dispose()
    6. End Try
    7. ' oder
    8. Using Excel as New ExcelHelper
    9. Excel.IrgendwasSinnvolles()
    10. End Using

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Hallo,
    ich habe jetzt mal versucht Excel "richtig" freizugeben und zu schließen aber das klappt bei mir nicht.
    Der Code von Haudruferzappeltnoch funktioniert nicht, daher hab ich selber nochmal geschaut und probiert.
    Mein Code beendet Excel aber auch nicht richtig.

    VB.NET-Quellcode

    1. Public oExcel As Excel.Application
    2. Public oBook As Excel.Workbook
    3. Public oBooks As Excel.Workbooks
    4. Public oSheets As Excel.Sheets
    5. Public oSheet As Excel.Worksheet
    6. Public oRange As Excel.Range
    9. Private Sub ButWerteermitteln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButWerteermitteln.Click
    11. Try
    12. MatTNrBez = ""
    13. MatTNrVerf = ""
    14. ComboMatRNr.Items.Clear()
    15. ComboMatRNr.Text = ""
    16. LabMatRNrVerfügbar.Text = ""
    17. Dim InhaltZelle As String = ""
    18. Dim HilfRNummer As String = txtMatRNr.Text.Replace(" ", "")
    19. Suchbegriff_find = HilfRNummer
    20. Dim RNummergefunden As Boolean = False
    22. oExcel = New Excel.Application
    23. oBooks = oExcel.Workbooks
    24. oBook = oExcel.Workbooks.Open(TabMatDatenbank,, True)
    25. oSheets = oBook.Worksheets
    27. Suchblatt = "Band"
    28. oSheet = oBook.Sheets(Suchblatt)
    29. With oSheet 'oBook.Sheets(Suchblatt)
    30. If Not .Range("A4:A4000").Find(What:=Suchbegriff_find) Is Nothing Then
    31. Gef = .Range("A4:A4000").Find(What:=Suchbegriff_find).Address
    32. oRange = .Range("A4:A4000").Find(What:=Suchbegriff_find)
    33. Marshal.ReleaseComObject(oRange)
    34. Zeile = CDec(Replace(Gef, "$A$", ""))
    35. ComboMatRNr.Items.Add(HilfRNummer & ": " & .Cells(Zeile, 2).Value())
    36. oRange = .Cells(Zeile, 2)
    37. Marshal.ReleaseComObject(oRange)
    38. ComboMatRNr.SelectedIndex = 0
    39. LabMatRNrVerfügbar.Text = "verfügbar " & HilfRNummer & "= " & .Cells(Zeile, 30).Value() & .Cells(Zeile, 4).Value()
    40. oRange = .Cells(Zeile, 4)
    41. Marshal.ReleaseComObject(oRange)
    42. oRange = .Cells(Zeile, 30)
    43. Marshal.ReleaseComObject(oRange)
    44. RNummergefunden = True
    45. Else
    46. End If
    47. End With
    49. Marshal.ReleaseComObject(oSheet)
    50. Marshal.ReleaseComObject(oSheets)
    51. oBook.Close(False)
    52. oBooks.Close()
    53. Marshal.ReleaseComObject(oBook)
    54. Marshal.ReleaseComObject(oBooks)
    55. oExcel.Quit()
    56. Marshal.ReleaseComObject(oExcel)
    58. MsgBox("Fertig")
    60. Catch ex As Exception
    62. LabMatRNrVerfügbar.Text = "Fehler beim ermitteln der Daten für die Eingegebene Teilenummer!!"
    63. End Try
    65. Exit Sub

    Du musst noch kleinschrittiger arbeiten, denke ich.

    Du hast da z.B. eine Abfrage im With Block: oSheet.Range("A4:A4000").Find(What:=Suchbegriff_find)

    Dieses oSheet.Range("A4:A4000") fliegt jetzt irgendwo frei im Raum rum und du kannst es nicht mehr ansprechen und auch nicht freigeben.

    Zuerst musst du also oRange = oSheet.Range("A4:A4000") definieren. Dann kannst du .Find benutzen. Das musst du auch wieder zuweisen damit du es freigeben kannst, das ist nämlich selbst wieder eine Range.

    Deswegen nutze ich bei mir eine List(Of Excel.Range). Man hat davon üblicherweise ja mehrere. Dann kann man nach und nach neue anlegen und am Ende gehen alle raus, wenn die Schleife drüberläuft. (Mit nem Dictionary kann man denen auch Namen geben, wenn man es mit der normalen Auflistung nicht mehr überblicken kann.)

    Nebenbei
    Alternativ könnte man auch oRange erst freigeben und dann nochmal verwenden.

    VB.NET-Quellcode

    1. oRange = fooSheet.Range("A1:A2")
    2. Marshal.ReleaseComObject(oRange)
    3. oRange = fooSheet.Range("B1:B2")
    4. Marshal.ReleaseComObject(oRange)

    Du brauchst aber mindestens zwei Range Objekte gleichzeitig, daher brauchst du auch mehrere Variablen


    Außerdem aufgepasst bei oBook.Sheets und oBook.Worksheets das sind zwei verschiedene Dinge. Statt den Sheets verwende ich eine List(Of Worksheet), ich weiß schon gar nicht mehr was es damit auf sich hat eins ist nur ein bestimmter Teil der Arbeitsblätter. Jedenfalls kann es genauso wie bei der Range hier sein, dass das oBook.Sheets Objekt frei umherirrt.

    Ich glaub du versuchst auch bei den .Cells(...), eine Range die du genutzt hast, nachträglich einer Variablen zuzuweisen. Das musst du natürlich vorher machen und dann mit der Variablen arbeiten. Jedes .Cells ist ein neues Range-Objekt selbst wenn die gleichen Daten drinstehen oder die Daten von derselben Stelle geholt werden.
    Ich denke du solltest die ganze Range aus dem Sheet, die du brauchst in ein Array o.Ä. laden. Dann musst du nur eine einzige Range entsorgen und mit dem Array kannst du auf sauberen Grund arbeiten ohne dir über das Aufräumen Gedanken zu machen

    Dieser Beitrag wurde bereits 12 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Ich hbae jetzt nochmal alle Rang definiert vorm der Nutzung und danach freigeben über .FinalReleaseComObject.
    Und immernoch bleibt Excel.

    VB.NET-Quellcode

    1. Private Sub ButWerteermitteln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButWerteermitteln.Click
    3. Try
    4. MatTNrBez = ""
    5. MatTNrVerf = ""
    6. ComboMatRNr.Items.Clear()
    7. ComboMatRNr.Text = ""
    8. LabMatRNrVerfügbar.Text = ""
    9. Dim InhaltZelle As String = ""
    10. Dim HilfRNummer As String = txtMatRNr.Text.Replace(" ", "")
    11. Suchbegriff_find = HilfRNummer
    12. Dim RNummergefunden As Boolean = False
    14. oExcel = New Excel.Application
    15. oBooks = oExcel.Workbooks
    16. oBook = oExcel.Workbooks.Open(TabMatDatenbank,, True)
    17. oSheets = oBook.Worksheets
    19. Suchblatt = "Band"
    20. oSheet = oBook.Sheets(Suchblatt)
    21. With oSheet 'oBook.Sheets(Suchblatt)
    22. oRange = oSheet.Range("A4:A4000")
    23. If Not oRange.Find(What:=Suchbegriff_find) Is Nothing Then
    24. Gef = oRange.Find(What:=Suchbegriff_find).Address
    25. oRange = oRange.Find(What:=Suchbegriff_find)
    26. Marshal.FinalReleaseComObject(oRange)
    27. Zeile = CDec(Replace(Gef, "$A$", ""))
    28. oRange = .Cells(Zeile, 2)
    29. ComboMatRNr.Items.Add(HilfRNummer & ": " & oRange.Value())
    30. Marshal.FinalReleaseComObject(oRange)
    31. ComboMatRNr.SelectedIndex = 0
    32. oRange = .Cells(Zeile, 30)
    33. LabMatRNrVerfügbar.Text = "verfügbar " & HilfRNummer & "= " & oRange.Value()
    34. Marshal.FinalReleaseComObject(oRange)
    35. oRange = .Cells(Zeile, 4)
    36. LabMatRNrVerfügbar.Text = LabMatRNrVerfügbar.Text & oRange.Value()
    37. Marshal.FinalReleaseComObject(oRange)
    38. RNummergefunden = True
    39. Else
    40. End If
    41. End With
    43. Marshal.FinalReleaseComObject(oSheet)
    44. Marshal.FinalReleaseComObject(oSheets)
    45. oBook.Close(False)
    46. oBooks.Close()
    47. Marshal.FinalReleaseComObject(oBook)
    48. Marshal.FinalReleaseComObject(oBooks)
    49. oExcel.Quit()
    50. Marshal.FinalReleaseComObject(oExcel)
    52. MsgBox("Fertig")
    54. Catch ex As Exception
    56. LabMatRNrVerfügbar.Text = "Fehler beim ermitteln der Daten für die Eingegebene Teilenummer!!"
    57. End Try
    59. Exit Sub

    Du machst es Dir aber auch nicht leicht.
    Wie wär es mit Schritt für Schritt? Erstmal die Zeilen#15 bis #48 auskommentieren, sodass nur noch Excel/oExcel erstellt, geschlossen, beendet und freigegeben wird.
    -> Wenn das nicht klappt, dann brauchst Du gar nicht weiterzusuchen.
    -> Wenn das aber doch klappt, dann oBooks dazuschalten und ausprobieren.
    Und so weiter, bis Du das Problem eingekesselt hast.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende