Excel richtig schließen

majachen99 · 12. November 2015, 08:02

Hallo zusammen,

bei meinem folgendem Code wird der Excel Prozess in der "Private Sub Excel_Passwort_oeffnen()" nicht nach der Ausführung geschlossen.
Nach mehrmaligen ausführen der Funktion fragt Excel das Passwort ab

Erst nach beenden des Programmes verschwindet der Prozess aus dem Taskmanager.
Er soll aber nach beenden der Funktion sofort geschlossen werden.

Danke für eure Hilfe

Visual Basic-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Excel_Passwort_oeffnen()
End Sub
Private Sub Excel_Passwort_oeffnen()
Try
Dim xlApp As New Excel.Application
Dim xlMappe = xlApp.Workbooks.Open(Application.StartupPath & "\Prodkon.xlsx", Password:="Passwort")
xlApp.Visible = False
xlApp.DisplayAlerts = False
LoadExcelFile("Prodkon.xlsx", "Prod-Kon-Liste")
xlMappe.Saved = False
xlMappe.Close()
xlApp.Quit()
xlApp = Nothing
GC.Collect()
GC.WaitForFullGCComplete()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
End Sub
Private Function LoadExcelFile(ByVal path As String, ByVal table As String) As DataSet
Try
Dim connString As String
If path.ToLower.EndsWith(".xlsx") Then
connString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & path & "; Extended Properties=Excel 12.0;"
Else
connString = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & path & "; Extended Properties=Excel 8.0;"
End If
Using myConnection = New OleDb.OleDbConnection(connString)
Dim myCommand As OleDb.OleDbDataAdapter
myCommand = New OleDb.OleDbDataAdapter("select * from [" & table & "$] WHERE Logik LIKE 'ja'", myConnection)
myCommand.TableMappings.Add("Table", "TestTable")
dtSet = New DataSet
myCommand.Fill(dtSet)
Me.DataGridView1.DataSource = dtSet.Tables(0)
myConnection.Close()
End Using
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
Return dtSet
End Function

RodFromGermany · 12. November 2015, 08:38

majachen99 schrieb:

sofort geschlossen werden.

Teste mal dies:

Spoiler anzeigen

musst Du der Mappe sagen, dass sie gespeichert ist (Du setzt sie auf ungespeichert),
rufe ReleaseComObject() auf.

Feddich.

Thisoft · 12. November 2015, 09:40

Hallo,

ich hänge mich hier mal mit dran da ich schon länger genau das gleiche Problem habe. Jetzt dachte ich, ich hätte endlich die Lösung...

Aber RelaseComObject() hilft (zumindest bei mir) auch nicht. Ich hab's jetzt auch schon mit FinalReleaseComObject() versucht. Hilft auch nix - der Excel-Process bleibt im Taskmanager bis das Programm beendet wird.

Gruß Thilo

Scriptum · 12. November 2015, 11:27

Und wenn du es so anhängst?

VB.NET-Quellcode

Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub

So klappt es zumindest bei mir, das keine Überhänge im Taskmanager zusehen sind.

ErfinderDesRades · 12. November 2015, 11:32

Jo, man muss auch wirklich alle ComObjekte erwischen, mittm Release. Das ist verdammt knifflig.
Excel freigeben

Mono · 12. November 2015, 11:32

Hast du dir das mal mit angeschaut
setz mal xlApp.Visible = true

Ggf. ist irgendein Dialog noch da?

//Edit:

Hast du schon :
System.GC.WaitForPendingFinalizers();
versucht?

Scriptum · 12. November 2015, 11:43

ErfinderDesRades schrieb:

Jo, man muss auch wirklich alle ComObjekte erwischen, mittm Release. Das ist verdammt knifflig.

Das stimmt, ist bisher jedoch gut gegangen.

Mir schwirrt da etwas im Kopf rum mit "proc.kill", weiß jedoch nicht ob sowas überhaupt geht... dafür bin ich nicht tief genug drin

cl10k · 12. November 2015, 11:55

Ich finde COM Zugriff generell nervig. Für Excel existiert mit EPPLUS eine externe Bibliothek die das Leben deutlicher leichter machen kann.

Mono · 12. November 2015, 12:23

Also bei sehe ich den Excel Prozess und wie er wieder verschwindet:

C#-Quellcode

private void button1_Click(object sender, EventArgs e)
{
Excel.Application exc = new Excel.Application();
exc.Visible = false;
Excel.Workbook w = exc.Workbooks.Open("D:\\Test.xlsx", Password:"123",WriteResPassword:"123");
w.Worksheets["Sheet4"].Cells(5, 9).Value = 1299;
LoadExcelFile("D:\\Test.xlsx", "Sheet2");
w.Close(Excel.XlSaveAction.xlSaveChanges);
exc.Quit();
exc = null;
System.GC.Collect();
}
private void LoadExcelFile(string path, string table)
{
DataSet dtSet = new DataSet();
string connString = null;
if (path.ToLower().EndsWith(".xlsx"))
{
connString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + path + "; Extended Properties=Excel 12.0;";
}
else
{
connString = "provider=Microsoft.Jet.OLEDB.4.0; data source=" + path + "; Extended Properties=Excel 8.0;";
}
using (OleDbConnection myConnection = new OleDbConnection(connString))
{
OleDbDataAdapter myCommand = new OleDbDataAdapter("select * from [" + table + "$]", myConnection);
myCommand.Fill(dtSet);
this.dataGridView1.DataSource = dtSet.Tables[0];
myConnection.Close();
}
}

Ich frag mich immer warum soviele Probleme damit berichten..ich kann das nie nachvollziehen

Vielleicht liegt es daran, dass du beim Close nicht angibst ob die Datei gespeichert werden soll.
w.Close(Excel.XlSaveAction.xlDoNotSaveChanges);
oder
w.Close(Excel.XlSaveAction.xlSaveChanges);

RodFromGermany · 12. November 2015, 12:30

Mono schrieb:

ob die Datei gespeichert werden soll

Jou. Deswegen hab ich oben das Save-Flag explizit auf True gesetzt:

RodFromGermany schrieb:

VB.NET-Quellcode

xlMappe.Saved = True

ErfinderDesRades · 12. November 2015, 12:55

Scriptum schrieb:

Mir schwirrt da etwas im Kopf rum mit "proc.kill", weiß jedoch nicht ob sowas überhaupt geht...

ja, das geht - einfach mal das Tutorial angugge.
proc.Kill() ist halt sone Sache, ob man Excel wirklich killen will. Evtl. hatte es der User ja bereits offen - da wird er sich bedanken für ein Killing.
Wie im Tut erwähnt: Wo es möglich ist, fährt man wohl am besten mit einer OpenSource-non-Com-InterOp-Dll. Aber das ist auch nicht immer möglich, denn die OpenSource laufen den sich ändernden xls-Format-Spezifikationen immer bischen hinterher.

RodFromGermany · 12. November 2015, 13:15

ErfinderDesRades schrieb:

proc.Kill()

Jou.
@Scriptum Allerdings kann es da Schwierigkeiten geben, wenn da mehrere Instanzen offen sind.
Nach McMurphy wird da stets die falsche Instanz gekillt.

Thisoft · 12. November 2015, 14:05

Also, bei mir hat alles nix geholfen:
-Dialoge etc. waren keine im Excel offen
-System.GC.WaitForPendingFinalizers() hab ich ohne Erfolg versucht
-w.Close(Excel.XlSaveAction.xlDoNotSaveChanges) hat auch keine Änderung gebracht

Ich hab jetzt auch den rabiaten Weg über Kill() gewählt:

VB.NET-Quellcode

Private Sub Kill_ExcelInstanz()
Dim Excproclist As Process() = Process.GetProcessesByName("Excel")
For i = 0 To UBound(Excproclist)
If Excproclist(i).MainWindowTitle = "" Then Excproclist(i).Kill()
Next
End Sub

Über die Auswahl nach MainWindowTitle kann man hier eigentlich ganz gut steuern welchen Prozess genau man killen möchte.

Gruß Thilo

Mono · 12. November 2015, 14:53

Welche Excelversion verwendest du eigentlich? (64bit oder 32bit ?)

Thisoft · 12. November 2015, 16:05

ICh habe Excel 2013 32bit

majachen99 · 12. November 2015, 16:40

Hallo zusammen,

erstmal vielen Dank für eure Hilfe.
Bei mir muss das Programm auf verschiedenen Rechnern laufen. Ab Win 7 und Office 2010 , jeweils in 32 und 64 bit.

Die bei mir aktuell am besten laufende Version ist: siehe unten im Spoiler.
Da wird der jeweilige Prozess im Taskmanager geschlossen. :thumbsup:

Wenn ich aber eine anderes Excel auf habe bleibe ich bei der Passwort - Abfrage von Excel hängen

Die Excel Prozesse generell killen will ich nicht. Da gebe ich ErfinderDesRades recht.

Spoiler anzeigen

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Excel_Passwort_oeffnen()
End Sub
Private Sub Excel_Passwort_oeffnen()
Try
Dim xlApp As New Excel.Application
Dim xlMappe = xlApp.Workbooks.Open(Application.StartupPath & "\Prodkon.xlsx", Password:="Passwort", WriteResPassword:="Passwort")
xlApp.Visible = True
xlApp.DisplayAlerts = False
LoadExcelFile("Prodkon.xlsx", "Prod-Kon-Liste")
'MessageBox.Show(CDbl(xlMappe.Worksheets("Kalkulation").Cells(16, 2).Value))
xlMappe.Saved = False
xlMappe.Close(Excel.XlSaveAction.xlSaveChanges)
xlApp.Quit()
xlApp = Nothing
System.GC.Collect()
System.GC.WaitForFullGCComplete()
Kill_ExcelInstanz()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
End Sub
Private Function LoadExcelFile(ByVal path As String, ByVal table As String) As DataSet
Try
Dim connString As String
If path.ToLower.EndsWith(".xlsx") Then
connString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & path & "; Extended Properties=Excel 12.0;" ' Xml; HDR=Yes; IMEX=1;"
Else
connString = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & path & "; Extended Properties=Excel 8.0;"
End If
Using myConnection = New OleDb.OleDbConnection(connString)
Dim myCommand As OleDb.OleDbDataAdapter
myCommand = New OleDb.OleDbDataAdapter("select * from [" & table & "$] WHERE Logik LIKE 'ja'", myConnection)
myCommand.TableMappings.Add("Table", "TestTable")
dtSet = New DataSet
myCommand.Fill(dtSet)
'MessageBox.Show((dtSet.Tables(0).Rows(0).Item(3).ToString))
'MessageBox.Show((dtSet.Tables(0).Rows.Count.ToString & " x ja "))
Me.DataGridView1.DataSource = dtSet.Tables(0)
myConnection.Close()
End Using
Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try
Return dtSet
End Function
Private Sub Kill_ExcelInstanz()
Dim Excproclist As Process() = Process.GetProcessesByName("Excel")
For i = 0 To UBound(Excproclist)
If Excproclist(i).MainWindowTitle = "" Then Excproclist(i).Kill()
Next
End Sub

RodFromGermany · 12. November 2015, 16:43

majachen99 schrieb:

VB.NET-Quellcode

xlMappe.Saved = False

Machst Du

VB.NET-Quellcode

xlMappe.Saved = True

Mono · 12. November 2015, 16:46

Oder du lässt es einfach weg wenn du dann eh

xlMappe.Close(Excel.XlSaveAction.xlSaveChanges)

verwendest.
LG

majachen99 · 12. November 2015, 17:13

egal welche Kombination ich nehme. Sobald ein weiteres Excel offen ist will er im Dialog das Passwort für die Excel-Datei haben.

Diese Datei muss aber mit Passwort gesichert sein. Ohne Passwort komme ich ja über OleDb ran.
Aber ich muss ja leider Excel erstmal über diesen Weg öffnen, dann das Dataset im einen Rutsch füllen und dann wieder schließen, oder ? Performance ist wichtig.

Danke auch

Spoiler anzeigen

cl10k · 12. November 2015, 17:22

Eh du noch mehr Zeit mit rumprobieren verschwendest, vielleicht doch mal die Epplus Bibliothek ausprobieren? Du musst dich nicht mit evtl parallel geöffneten Instanzen von Excel rumschlagen und performanter als COM ist es bestimmt auch...

Excel richtig schließen

Excel richtig schließen

Visual Basic-Quellcode

majachen99 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

C#-Quellcode

Mono schrieb:

RodFromGermany schrieb:

VB.NET-Quellcode

Scriptum schrieb:

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

majachen99 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

8 Benutzer haben hier geschrieben