EXCEL Process beenden VB

Gib alle ExcelObject frei.

Meine prinzipielle vorgehensweise:


Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object


oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add
oSheet = oBook.Worksheets(1)


oExcel.Quit


Für die Objekte oExcel und oSheet gibt es keine Quit Funktion. Wie soll 
ich die also freigeben?

So wie man das immer in VB mit Objekten machen sollte, die man nicht 
mehr braucht mit Nothing.

probier mal:
        'Prozess schliessen
        Dim Anwendung As String
        Anwendung = "excel"
        Dim pList() As System.Diagnostics.Process = _
    System.Diagnostics.Process.GetProcessesByName(Anwendung)
        For Each proc As System.Diagnostics.Process In pList
            Dim resp As MsgBoxResult
            resp = MsgBox("Terminate " & proc.ProcessName & "?", _
                MsgBoxStyle.YesNo, "Terminate?")
            If resp = MsgBoxResult.Yes Then
                proc.Kill()
            End If
        Next

du kannst auch die Msgbox()-Abfrage weglassen und gleich alle excel 
prozesse beenden. Beendet wirklich alle Excel Anwendungen!!

oder die alternative:

'Variablen
dim excelapp as Excel.Application
dim excelworkbook as Excel.Workbook = 
excelapp.Workbooks.open("DEIN_PFAD")

'Speichern
for each workb as Excel.Workbooks In excelapp.Workbooks()
workb.Save()
next

'Schließen
for each workb as Excel.Workbooks In excelapp.Workbooks()
workb.Close()
next

mfg
Stefan Wakolbinger