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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen