Ir al contenido


Foto

[TRUCO DELPHI] Cerrar todas las hojas de Trabajo en Excel.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 09 diciembre 2016 - 02:53

[TRUCO DELPHI] Cerrar todas las hojas de Trabajo en Excel.


delphi
  1. Function ExcelCloseWorkBooks(Excel : Variant; SaveAll: Boolean): Boolean;
  2. var
  3. loop: byte;
  4. Begin
  5. Result := True;
  6. Try
  7. For loop := 1 to Excel.Workbooks.Count Do
  8. Excel.Workbooks[1].Close[SaveAll];
  9. Except
  10. Result := False;
  11. End;
  12. End;

Saludos!


  • 1




IP.Board spam blocked by CleanTalk.