Public Sub schliessenExcel()
 
      Me._excelAppl.Quit()
 
      Dim h As Integer = Me._excelAppl.Hinstance
      Dim procs() As Process = Process.GetProcesses
      Dim i As Integer
      While i < procs.Length
         Dim prozess As Integer = procs(i).MainModule.BaseAddress.ToInt32
         If procs(i).MainModule.BaseAddress.ToInt32 = h Then
            procs(i).Kill()
            Exit While
         End If
         i += 1
      End While
      Me._excelAppl = Nothing
   End Sub

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender

        Dim app As New Excel.Application
        Dim pfad As String = "C:\tmp\foobar.xls"
        Dim book As Excel.Workbook = Nothing
 
        '// load
        With app
            book = .Workbooks.Open(pfad)
            .Visible = True
            System.Threading.Thread.Sleep(3000)
        End With
 
        '// kill
        book.Close()
        app.Quit()
        Marshal.ReleaseComObject(app)
        Marshal.ReleaseComObject(book)
        book = Nothing
        app = Nothing
        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers()

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender

    Public Sub CloseExcel(ByVal app As Excel.Application)
        Dim h As Integer = app.Hinstance
        Dim procs() As Process = Process.GetProcessesByName("EXCEL")
        Dim p As Process = Nothing
        Debug.WriteLine("INFO: Current Hinstance: " + h.ToString())
        app.Quit()
 
        For a As Integer = procs.Length - 1 To 0 Step -1
            p = procs(a)
            Try
                Debug.WriteLine("INFO: " + h.ToString + " ::: " + _
                  p.MainModule.BaseAddress.ToInt32.ToString)
                If p.MainModule.BaseAddress.ToInt32 = h Then
                    Debug.WriteLine("INFO: Close " + _
                      p.MainModule.BaseAddress.ToInt32.ToString + "..")
                    If Not p.CloseMainWindow Then
                        p.Kill()
                    End If
                End If
            Catch ex As System.ComponentModel.Win32Exception
                Debug.WriteLine(ex.ToString)
            End Try
        Next
        app = Nothing
    End Sub

'Prozessliste, bevor ich einen Excel-Prozess starte
process1 = Process.GetProcesses()
oExcel = CreateObject("Excel.Application")
'Prozessliste, nachdem ich einen Excel-Prozess gestartet hab
process2 = Process.GetProcesses()

Dim process1() As Process
Dim process2() As Process
Dim procId As Integer = 0

        Try
         ...
        Catch
        Finally
 
            Dim bMonProcessXL As Boolean
 
            For j As Integer = 0 To process2.GetUpperBound(0)
                If process2(j).ProcessName = "EXCEL" Then
                    bMonProcessXL = True
                    For i As Integer = 0 To process1.GetUpperBound(0)
                        If process1(i).ProcessName = "EXCEL" Then
                            If process2(j).Id = process1(i).Id Then
                                bMonProcessXL = False
                                Exit For
                            End If
                        End If
                    Next i
 
                    If bMonProcessXL = True Then
                        'Jetzt, wo ich die genaue ID habe, kann ich sie töten. 
                        ' excellAppl.Hinstance  
                        'funktioniert nicht mit Excel 2000, während diese 
                        ' Methode immer geht!
                        procId = process2(j).Id
                        Process.GetProcessById(procId).Kill()
                        Exit For
                    End If
                End If
            Next j
            End
        End Try