Hallo,
ich würde mir gerne von einer nicht geöffneten Excel die einzelnen Worksheets auflisten lassen.
Auf eine nicht geöffnete Excel greife ich ansonsten mit ExecuteExcel4Macro zu, in diesem Fall bekomme ich es jedoch nicht hin.
Weiss jemand Rat und kann mir helfen?
Sub AuflistenWorksheets()
Dim lngWorksheets As Long 'Worksheets sind nur Tabellenblätter
Dim i As Long
lngWorksheets = ThisWorkbook.Worksheets.Count
For i = 1 To lngWorksheets
ThisWorkbook.Sheets("XY").Cells(1 + i, 2).Value = ThisWorkbook.Worksheets(i).Name
Next i
End Sub
|