Excel-Export, RefToCell, Spalten>26

**hoika**

Hallo #,

die folgende Funktion liefert das benötigte A1
für die Zellen beim Excel-Export zurück.
(bZeroRow ist für Columns-Methoden)

zusammenfalten · markieren

Delphi-Quellcode:

			function RefToCell(ARow, ACol: Integer;

  const bZeroRow: Boolean = False): string;

var

  sCol: String;

  sRow: String;

begin

  sCol:= Chr(Ord('A') + ACol - 1);

  if bZeroRow then

  begin

    sRow:= '';

  end

  else

  begin

    sRow:= IntToStr(ARow);

  end;

  Result := sCol + sRow;

end;

Die Spalte 27 ist ja AA.
Das kann die Funktion aber nicht.

Hat die jemand schon mal implementiert ?

Heiko

Excel-Export, RefToCell, Spalten>26

Excel-Export, RefToCell, Spalten>26

Forumregeln