Dim xlApp As New Excel.Application
        Dim xlMappe As Excel.Workbook
        Dim xlblatt As Excel.Worksheet
        Dim xlZelle As Excel.Range
        Dim intZeilen As Integer
        Dim p As Process
        xlApp.Visible = False
        xlMappe = _
        xlApp.Workbooks.Open("C:\temp\excel.xls")
        xlblatt = xlMappe.Worksheets(1)
        xlZelle = xlblatt.Range("A1")
        intZeilen = xlZelle.CurrentRegion.Rows.Count
        xlMappe.Close()
        xlApp.Quit()
        xlApp.Workbooks.Close()
        xlApp.Quit()
        xlApp = Nothing
        For Each p In Process.GetProcesses
            If p.ProcessName.ToUpper = "EXCEL" OrElse p.ProcessName.ToUpper = _
              "EXCEL.EXE" Then
                If Not p.CloseMainWindow Then
                    p.Kill()
                End If
            End If
        Next