Private oExl As Object

Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String)
   Dim A As Variant
   Dim Zeile As Long, Spalte As Integer
 
  ' Excel-Application referenzieren
  Set oExl = CreateObect("Excel.Application")
 
   ' Workbook öffnen
   On Error Resume Next
   oExl.WorkBooks.Open sWSName
  ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de