I had a similar problem before and was advised to set SaveToList on but this doesn't appear to be working. I have the following code and this still raises an error.
Code: Select all
XLS.Filename := FLocationFileName;
XLS.Errors.SaveToList := True;
XLS.Errors.Filter := [xelMessage, xelHint, xelWarning, xelError, xelFatal, xelDebug];
XLS.Read;
Looking in TCT_Comment.AssignAttributes and TCT_Sst.AssignAttributes these both raise errors - commenting out the code in the else lets the spreadsheets open up just fine and work.