Zum Beitrag von gestern (https://www.herber.de/forum/messages/947177.html),
habe ich vielleicht was gefunden und wollte eure Meinung dazu haben
Sub Test()
Dim i As Integer
Dim sDatei As String
Dim sPfad As String
Dim xlAnw As Excel.Application
Dim xlBuch As Excel.Workbook
Dim xlArbBlatt As Excel.Worksheet
sDatei = "datei.xls"
sPfad = "C:\Pfad\..."
Set xlAnw = CreateObject("Excel.Application")
Set xlBuch = xlAnw.Workbooks.Add(sPfad & sDatei)
i = xlBuch.Worksheets.Count
End Sub
danke und gruß
Alex