Végigmegy a klasszikus XLS munkalap betöltött celláin, és minden cellánál meghívja az alkalmazás visszahívó függvényét
Szintaxis
type
TXLSCellReadEvent = procedure(
Sender: TObject;
SheetIndex, Row, Col: Integer;
const Value: Variant;
const Formula: WideString;
var Cancel: Boolean) of object;
function ForEachCell(Callback: TXLSCellReadEvent): Integer;
Megjegyzések
A ForEachCell csak a betöltött munkalap modellben meglévő cellákat látogatja. Nem vizsgálja a lap összes lehetséges sorát és oszlopát
A cellák látogatása sor-alapú sorrendben történik. A SheetIndex, Row és Col 1-alapú nyilvános koordináták. A Value az aktuális cella értéke. A Formula tartalmazza a képlet szöveget képlet celláknál, és üres a normál értékcelláknál
Állítsa a Cancel értékét True-ra a visszahívóban az olvasás korai leállításához. A visszatérési érték a meghívott visszahívások száma
Példa
procedure TForm1.ReadCell(Sender: TObject; SheetIndex, Row, Col: Integer;
const Value: Variant; const Formula: WideString;
var Cancel: Boolean);
begin
Memo1.Lines.Add(Format('%d:%d = %s', [Row, Col, VarToStr(Value)]));
if Row >= 1000 then
Cancel := True;
end;
Visited := Workbook.Sheets[1].ForEachCell(ReadCell);
Lásd még