[TRUCO DELPHI] Cerrar todas las hojas de Trabajo en Excel.
delphi
Function ExcelCloseWorkBooks(Excel : Variant; SaveAll: Boolean): Boolean; var loop: byte; Begin Result := True; Try For loop := 1 to Excel.Workbooks.Count Do Excel.Workbooks[1].Close[SaveAll]; Except Result := False; End; End;
Saludos!