Excel Stringgrid in (vorhandene) Excel abspeichern

[Jumpy]

if not VarIsNull(Workbook) then

Workbook ist mMn an der Stelle Null weil nicht zugewiesen. Weiter oben hätte es wohl heißen müssen:

Workbook:=XLApp.Workbooks.Open(AXLSFile);

statt nur

XLApp.Workbooks.Open(AXLSFile);

-------

In der Folge könnte man dann auch statt:

Worksheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[sheetname]

einfach schreiben:

Workbook.WorkSheets[sheetname]