No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Eliminar de Excel una hoja de Trabajo por su Nombre.

delphi

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!