Delphi вики
Advertisement

Добавление нового листа

Worksheets.Add.Name = "Имя листа"   

Очистка листа

ActiveSheet.Cells.Delete Shift:=xlUp

Свойства

ActiveSheet.Name - Имя листа
worksheets.Count - Число обычных листов
sheets.Count - Число всех листов включая диаграммы и пр.

Полезные функции

Function SheetExists(SheetName As String) As Boolean
        Dim obj As Object
        On Error GoTo errorHandler:
        Set obj = sheets(SheetName)
        SheetExists = True
        Exit Function
errorHandler:
        SheetExists = False
End Function
Advertisement