Ole Excel Spaltenlänge herausfinden

[sx2008]

Delphi-Quellcode:

// ein Variant Array wird erzeugt
namensliste := VarArrayCreate([yMin, yMax, xMin, xMax], varString);
// das bisherige Variant-Array wird freigegeben!
// es erfolgt eine neue Zuweisung
namensliste := XLSheet.UsedRange.Value;
// hier müsste man erst mal schauen, was genau in namensliste steht
// es könnte ein einzelner Wert sein oder auch ein 1- oder 2-dimensionales Variant-Array
if not VarIsArray(namensliste) then
   ShowMessage('kein Array');
ShowMessageFmt('Dimensionen: %d', [VarArrayDimCount(namensliste)]);