Método WriteCells - Referencia para desarrolladores de HotXLS

Rellena un rango de hoja de cálculo XLS clásica llamando al código de la aplicación para cada valor de celda

Sintaxis

type
  TXLSCellWriteEvent = procedure(
    Sender: TObject;
    SheetIndex, Row, Col: Integer;
    var Value: Variant;
    var Skip: Boolean;
    var Cancel: Boolean) of object;

function WriteCells(ARange: WideString; Callback: TXLSCellWriteEvent): Integer; overload;
function WriteCells(ARow1, ACol1, ARow2, ACol2: Integer; Callback: TXLSCellWriteEvent): Integer; overload;

Observaciones

function WriteCells(ARange: WideString; ACallback: TXLSWriteCellsEvent): Integer; overload;

function WriteCells(ARow1, ACol1, ARow2, ACol2: Integer; ACallback: TXLSWriteCellsEvent): Integer; overload;

La sobrecarga de cadena acepta un rango de estilo A1 como A1:C100. La sobrecarga numérica usa índices de fila y columna basados en 1. Los rangos se normalizan cuando la fila o columna de inicio es mayor que la fila o columna de fin

Ejemplo

procedure TForm1.WriteCell(Sender: TObject; SheetIndex, Row, Col: Integer;
  var Value: Variant; var Skip: Boolean; var Cancel: Boolean);
begin
  if Col = 3 then
  begin
    Skip := True;
    Exit;
  end;

  Value := Format('R%dC%d', [Row, Col]);
  if Row >= 1000 then
    Cancel := True;
end;

Written := Workbook.Sheets[1].WriteCells('A1:D2000', WriteCell);

Véase también

Las celdas se solicitan en orden de fila mayor. Establezca Value en el callback para escribir la celda actual. Establezca Skip en True para dejar la celda actual sin cambios. Establezca Cancel en True para detener después de la celda actual