我的代码:
begin
XLS:= TXLSReadWriteII5.Create(Application);
XLS.Clear;
XLS[0].Name:='Sheet1';
dlgSave1.Filter:='Excel表格(*.xlsx)|*.xlsx';
XLS[0].Rows[0].PixelHeight := 20;
for i:= 1 to 数据集.RecordCount do
begin
for k:= 0 to 数据集.Fields.Count -1 do
begin
XLS[0].AsString[k,i]:= 数据集.Fields[k].Asstring;
end;
数据集.Next;
end;
XLS.Write;