Ole Excel Spaltenlänge herausfinden

[David Martens]

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:

Delphi-Quellcode:

  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.