17. Операции с рабочими листами (Коллекция Sheets и объект Worksheet)

Лабораторная работа 17.1 Выполнение операций с рабочими листами

Объект Excel.Worksheet в макросах VBA, создание, переименование, удаление листов книги Excel

Задание:

Создайте в специальной книге Personal.xls макрос Calendar(), который бы:

• создавал пустую рабочую книгу;
• переименовывал бы в ней лист "Лист1" в "Календарь";
• удалял бы все остальные листы.

При этом сообщения с просьбой подтвердить удаление листа выводиться не должны.

Решение:

Код для макроса Calendar() может быть таким:

Public Sub Calendar()

Dim oWbk As Workbook

Dim oWorksheet As Worksheet

Application.DisplayAlerts = False

Set oWbk = Application.Workbooks.Add()

For Each oWorksheet In oWbk.Worksheets

    If oWorksheet.Name = "Лист1" Then

        oWorksheet.Name = "Календарь"

    Else

        oWorksheet.Delete

    End If

Next

End Sub

Получить учебные материалы по этому курсу