[TRUCO DELPHI] Eliminar de Excel una hoja de Trabajo por su Nombre.
Function ExcelDeleteWorkSheet( Excel : Variant; SheetName : ShortString): Boolean; Begin Result := False; Try If Not ExcelSelectSheetByName(Excel,SheetName) Then Begin Msg('No se puedo seleccionar la Hoja de Trabajo: '+SheetName+' !'); Exit; End; Excel.ActiveWindow.SelectedSheets.Delete; Result := True; Finally Result := False; End; End;
Saludos!