Du benutzt ja hier late-binding aber so ähnlich sollte es hier auch gehen:
laut Hilfe für VBA
http://www.schmittis-page.de/index.h...el/vba/t17.htm:
Code:
'letzte Zeile in Spalte A suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Und was mit Zeilen geht, geht natürlich auch mit Spalten:
'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Für Delphi heißt das:
TExcelApplication.Cells.Range['A1', 'A1'].End_[ xlDown/xlToLeft/xlToRight/xlUp ].Row/Column;
In dem Fall natürlich [xlDown].Column
@eragon: mit range['A1','A1'] gehst du auf die erste Zelle die dich interessiert.