Ole Excel Spaltenlänge herausfinden

[Blup]

Delphi-Quellcode:

XLSheet := XLApp.ActiveWorkbook.Worksheets[i];
xMin := 1;
yMin := 1;
xMax := XLSheet.UsedRange.Columns.Count;
yMax := XLSheet.UsedRange.Rows.Count;
Data := VarArrayCreate([yMin, yMax, xMin, xMax], varVariant);
Data := XLSheet.UsedRange.Value;