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 intSpalten As Integer
 
        'xlApp.Visible = False
 
        xlMappe = xlApp.Workbooks.Open(sDatei)
 
        xlblatt = xlMappe.Worksheets(1)
        xlZelle = xlblatt.Range("A1")
        intZeilen = xlZelle.CurrentRegion.Rows.Count

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP