Mal zu deinen Fragen die Antwort in VBA. Delphi Übersetzung überlass ich dir:
Sagen wir Excel ist die variable deiner Excel-Application, dann liefert:
die Anzahl der offenen Workbooks (=Dateien).
Für ein Workbook (z.B. das Aktive) liefert:
Code:
Excel.ActiveWorkbook.Worksheets.Count
oder war es
Code:
Excel.ActiveWorkbook.Sheets.Count
die Anzahl der Arbeitsblätter.
Für ein Arbeitsblatt, z.B. das letzte, liefert:
Code:
Dim r as Range
Set r = Excel.ActiveWorkbook.Worksheets[Excel.ActiveWorkbook.Worksheets.Count].UsedRange
den gefüllten Bereich und
Code:
r.Columns.Count
r.Rows.Count
die Spalten und Zeilen dieses Bereichs.