Excel-Export, RefToCell, Spalten>26

[tekkyeah]

Delphi-Quellcode:

  if col < 26 then
  begin
    Result := Chr(Ord('A') + Col - 1) + IntToStr(Row);
  end else
  begin
    Result := Chr((Col DIV 26) - 1 + Ord('A')) +
              Chr((Col MOD 26) + Ord('A')) + IntToStr(Row);
  end;