Điền vào vùng worksheet XLS truyền thống bằng cách gọi code ứng dụng cho mỗi giá trị ô
Cú pháp
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;
Ghi chú
Nạp chồng chuỗi chấp nhận vùng kiểu A1 như A1:C100. Nạp chồng số sử dụng chỉ số hàng và cột theo chỉ số 1. Các vùng được chuẩn hóa khi hàng hoặc cột bắt đầu lớn hơn hàng hoặc cột kết thúc
Các ô được yêu cầu theo thứ tự hàng. Đặt Value trong callback để ghi ô hiện tại. Đặt Skip thành True để giữ nguyên ô hiện tại. Đặt Cancel thành True để dừng sau callback hiện tại. Giá trị trả về là số ô đã ghi
Phương thức này ghi vào mô hình worksheet đã tải. Đây là helper ghi dựa trên callback nhỏ gọn, không phải chế độ lưu phát trực tuyến file
Xem thêm
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);
Xem thêm