Public Class Form1
    Dim a As Excel.Application
    Dim Wb As Excel.Workbook
    Dim Ws As Excel.Worksheet
 
    Private Sub btnAuslese_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)  Handles btnAuslesen.Click
        a = New Excel.Application
        Wb = a.Workbooks.Open("C:\mappe1.xls")
        Ws = Wb.Worksheets(1) ''oder Worksheets('Zähler')
        MsgBox("Zahl der Tabellenblätter: " & Wb.Sheets.Count)
        Wb.Close()
        Me.Close()
    End Sub
 
End Class