AdvStringGrid SaveToXLS get a OLE Error in Debugger

VCL TMS VCL UI Pack
1

With following Code i Save my AdvStringGrid (grdAbz) to a Excel File.

procedure TForm1.btnExcelSaveClick(Sender: TObject);
Var
  s: String;
begin
  s := ProgPath + 'Listen\SHWAbz.xlsx';
  if FileExists(s) then DeleteFile(s);

  grdAbz.SaveToXLS(s,True); // <-- Here OLE-Error

  //TTMSFNCUtils.OpenFile(s);
  ShellExecute(0, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);
end;

This Error Message appear when i Call grdAbz.SaveToXLS(s,True);
Im Projekt .... ist eine Exception der Klasse EOLeSysError mit der Meldung "Vorgang nicht verfügbar" aufgetreten.

This Error only appears in DebugMode not in Runtime Mode.

I am using Windows 10 and Office 2019.

My Customer got the Problem, that the last opened ExcelSheet was show but with the File-Name of my Sheet (SHWAbz.xlsx) in the Header and it was saved with this name, whe i save the file. It seems that my List has read the lastopend ExcelWorkbook with many Sheets in it.

Is it normal that a OLE-Error was thrown from Windows when i am in Debug Mode ?

2

So far, I could not reproduce this.
Can it be your .xlsx file stayed locked in memory and could therefore not be overwritten? Is just executing DeleteFile() effectively deleting the file without error?

3

The delete of the file is working without an error.
The error accours when i go into grdAbz.SaveToXLS(s,True);
I use Flexcel to read and write Excel Dokuments.
All Excel Dokuments are closed.
Maybe something with a wrong Path in Search- or LibPath or something in uses ?
I will make a small Project and try to reproduce the error.

4

I made a simple Project to see the error when saving the grid.
The error only occurs in debugmode.
GridWithMemo.zip (25.6 KB)

5

This an expected and handled exception.
The IDE shows all exceptions by default when run in debug mode from the IDE, so also this handled exception. This is not an error, just expected exception handling. Run this outside the IDE and you will not see this exception.