Nicht schließen Sie das Excel-Prozess aus VB.NET app

Habe ich die Klasse unten zu öffnen und zu sammeln, die Namen der Arbeitsblätter in einer excel-Datei. Es so tut wie es soll beim öffnen der Datei und gibt die Namen der einzelnen Arbeitsblatt. Leider bin ich nicht in der Lage, die Datei zu schließen. Dies hält die Excel.exe Prozess hängen. Auch nachdem ich versuchen, schließen Sie es an der Unterseite von dieser Klasse wird der Prozess noch hängt. Ich habe manuell goto Windows Task-Manager und beenden Sie den Prozess, bevor ich die Datei erneut verwenden. Auch wenn ich die Ausfahrt aus der Anwendung ist es immer noch da draußen. Irgendeine Idee, wie man tötet dieser Prozess von dem code?

Imports Excel = Microsoft.Office.Interop.Excel

Public Class ExcelWrapper

Dim strTypeSelection As String = String.Empty
Dim strFilePath As String = String.Empty

Function GetWorksheetsByName(ByVal strfilePath As String) As Array

    Dim xlsApp As Excel.Application
    Dim xlsWorkBook As Excel.Workbook

    xlsApp = New Excel.Application
    xlsWorkBook = xlsApp.Workbooks.Open(strfilePath)
    Dim intWsCount As Integer = xlsApp.Worksheets.Count

    Dim sarWorksheetName(intWsCount - 1) As String

    Dim i As Integer = 0
    'gathers the names off all the worksheets 
    For Each totalWorkSheets In xlsApp.Worksheets
        sarWorksheetName(i) = totalWorkSheets.Name
        i += 1
    Next totalWorkSheets

    xlsWorkBook.Close(strfilePath)
    xlsApp.DisplayAlerts = False
    xlsApp.Quit()

    Return sarWorksheetName
End Function

End Class

InformationsquelleAutor rross | 2011-04-20

4

Habe ich dieses Problem, bevor Sie als gut, und soweit ich mich erinnere war die Lösung zu nennen Marshal.ReleaseComObject(Object obj) oder Marshal.FinalReleaseComObject(Object obj) auf alle Objekte, die kommen aus der Büro-Bibliotheken. Ich könnte sehr leicht falsch sein, obwohl. Viel Glück, Office automation ist ein riesiger Schmerz.

Das funktionierte! Ich hatte zu release der Excel.Application, Excel.Arbeitsmappe und Excel.Arbeitsblatt vor dem Prozess verschwinden würde.

InformationsquelleAutor MarkPflug
3

Für jeden Hinweis versuchen Sie;
```
System.Runtime.InteropServices.Marshal.ReleaseComObject(xxx)
xxx = nothing
```
(http://support.microsoft.com/kb/317109)

Dies ist korrekt. Siehe meine Antwort auf eine wichtige Frage, aber in C#.

InformationsquelleAutor Alex K.
2

Vom http://www.experts-exchange.com/Programming/Misc/Q_24049269.html
```
' after creating it, but before operating on it
xlsApp.Application.DisplayAlerts = False
```
Super Antwort! Das half mir heraus.

InformationsquelleAutor Cheeso
0

Hier ist cleanup-code, den ich verwenden, wenn die Arbeit mit Excel durch Automatisierung. Es ist wichtig, Sie richtig Aufräumen oder der Prozess hängen, wie Sie sehen. Ich nehme an, Sie tun dies über eine desktop-Anwendung und keine web-app. Dies geschieht in der Regel in einem finally-block und der Probe ist c#, aber ich denke, Sie sollten in der Lage sein, um es an Ihre Bedürfnisse anpassen.
```
 GC.Collect();
 GC.WaitForPendingFinalizers();


 System.Runtime.InteropServices.Marshal.FinalReleaseComObject(range);
 System.Runtime.InteropServices.Marshal.FinalReleaseComObject(sheet);
 System.Runtime.InteropServices.Marshal.FinalReleaseComObject(book);

 WB.Close(false, Type.Missing, Type.Missing);

 Excel.Quit();
 System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel);
```
InformationsquelleAutor Gratzy
0

Dies ist nicht spezifisch für Ihre Excel-Problem, aber Sie können den Prozess beenden, indem Sie den Namen mit...
```
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("WhateverYouWant")

For Each p As Process In pProcess
    p.Kill()
Next
```
Wird töten alle Prozesse, die mit dem bestimmten Namen.

Möchten Sie vielleicht versuchen, hinzufügen
Excel = Nothing
um zu sehen, ob das klärt das Problem (und können Sie vermeiden, gewaltsam töten den Prozess".

InformationsquelleAutor Rob P.

Ich ändern würde, am Ende Teil des Codes wie folgt, zu korrigieren einige der Probleme, die verursachen können Ihr problem:

For Each totalWorkSheets as Excel.Worksheet In xlsWorkBook.Worksheets 'not xlsApp.Worksheets
   sarWorksheetName(i) = totalWorkSheets.Name
   i += 1
Next totalWorkSheets

xlsWorkBook.Close Savechanges:=False 
set xlsWorkBook = Nothing
xlsApp.Quit()
set xlsApp = Nothing

InformationsquelleAutor Doug Glancy

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.