Hello,
This is problem with XLSReadWriteII component, when using version Excel 2003
wait xls.Write < 1 s, and when using xls.Version := xvExcel2007 wait
xls.Write 90 s !!! Two examples. Delphi 7:
procedure TForm1.Button1Click(Sender: TObject);
var xls: TXLSReadWriteII4;
i : integer;
begin
xls := TXLSReadWriteII4.Create(nil);
try
xls.Filename := 'c:\temp\test1.xls';
for i:= 0 to 30000 do
xls.Sheets[0].AsInteger[0,i]:= i;
xls.Write; //wait < 1 s
finally
xls.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var xls: TXLSReadWriteII4;
i : integer;
begin
xls := TXLSReadWriteII4.Create(nil);
try
xls.Filename := 'c:\temp\test2.xlsx';
xls.Version := xvExcel2007;
for i:= 0 to 30000 do
xls.Sheets[0].AsInteger[0,i]:= i;
xls.Write; //wait 90 s !!!!!!!!!!!!!!!!?????????
finally
xls.Free;
end;
Thank you for your answer.
lhotak