Private oExl As New Excel.Application
Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String)
 
   Dim A As Variant
   Dim Zeile As Long, Spalte As Integer
 
   ' Workbook öffnen
   oExl.WorkBooks.Open sWSName
 
   ' Tabelle selektieren:
   ActiveWorkbook.Sheets(sTabName).Select
 
   ' Zelle lesen
   Label1.Caption = ActiveSheet.Cells(1, 1).Value
 
   ' alles schließen
   ActiveWorkbook.Saved = True
   oExl.Quit
   Set oExl = Nothing
End Sub
 
Private Sub Command1_Click()
  OpenExlWS "E:\Diversity Thekensystem\Testexceldatenbank.xls", "Tabelle3"
End Sub

Cu

Wolfgang