ich hab mal wieder eine exotische Frage :-)
Wie kann ich die Anzahl der Worksheets aus einer anderen Excel-Datei, bzw. anderen Workbook ermitteln?
Danke in voraus
AlexH
Sub test()
Dim wb As Workbook
For Each wb In Application.Workbooks
MsgBox wb.Name & ": " & wb.Worksheets.Count & " Sheets"
Next wb
End Sub
Gruß Matthias
Sub test()
Workbooks.Open Filename:= _
"C:\test.xls" 'Deine Datei inkl. Pfad
Dim wbname As String
wbname = ActiveWorkbook.Name
MsgBox Workbooks(wbname).Name & ": " & Workbooks(wbname).Worksheets.Count & " Sheets"
Workbooks(wbname).Close SaveChanges:=False
End Sub
Gruss
Waven