No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Traer la formula de una Celda en Excel.

delphi

Function ExcelGetCellFormula(
  Excel         : Variant;
  RowNum, ColNum: Integer): ShortString;
Begin
  Result := ' ';
  Try
    Result := Excel.
                ActiveSheet.
                Cells[RowNum, ColNum].
                Formula;
  Except
    Result := ' ';
  End;
End;

Saludos!