Code: Select all
with TXLSReadWriteII5.Create(nil) do
try
LoadFromFile('c:\tmp.xls');
Sheet[0].AsFloat[1,1]:=12;
Calculate;
//Shows the C2 formula content, and is a correct value
ShowMessage(FloatToStr(Sheet[0].AsFloatRef['C2']));
Calculate;
//Shows the C2 formula content, and is not correct. The value is 0
ShowMessage(FloatToStr(Sheet[0].AsFloatRef['C2']));
finally
Free;
Free;