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
        xlApp.Visible = False
        xlMappe = _
        xlApp.Workbooks.Open("\ne.xls")
        xlblatt = xlMappe.Worksheets(1)
        xlZelle = xlblatt.Range("A1")
        intZeilen = xlZelle.CurrentRegion.Rows.Count

xlMappe.Close()
        xlApp.Quit()
        xlApp.Workbooks.Close()

 Dim p As Process
        For Each p In Process.GetProcesses
            Try
                If p.ProcessName = "EXCEL" Or p.ProcessName = "EXCEL.EXE" Then
                    p.Close()
                End If
                MsgBox(p.ProcessName)
            Catch
                ' 
            End Try
        Next

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP