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