function dameNombreCeldaExcel(row, col: Integer): String;
const
letras = 26;
var
columna, valor: Integer;
celda: String;
begin
columna := col - 1;
valor := columna mod letras;
celda := chr(valor+ord('A'));
columna := columna div letras;
while (columna>0) do
begin
columna := columna - 1;
valor := columna mod letras;
celda := chr(valor+ord('A')) + celda;
columna := columna div letras;
end;
result := celda +intToStr(row);
end;