Задание 3. Методы и свойства основных объектов MS Excel

Цель работы

Объекты Workbook, Worksheet, Range, Select, Cells.

Порядок выполнения работы

Внимательно прочитать данное методическое пособие и выполнять все примеры и задания. В отчет оформлять только задания.

Содержание отчета

- наименование и цель работы;

- результаты работы программы.

Краткая теория

Объект Workbook.

Объект Workbook представляет собой рабочую книгу, которая хранится в файле с расширением.xls или.xla. При открытии Excel пользователем, в нем создается новая пустая рабочая книга. Когда Excel запускается VBA программой, рабочих книг он не содержит, поэтому задача создания или открытия рабочей книги возлагается на программу. Проект VBA для открытой рабочей книги содержит раздел «Эта книга» и по одному разделу для каждого открытого листа. Подобно объектам ActiveDocument и ThisDocument объектной модели Word, в Excel объекты ActiveWorkBook и ThisWorkBook ссылаются на активную в данный момент рабочую книгу и на книгу, из которой запущен макрос.

Пример 1. Для создания новой рабочей книги используется метод Add коллекции Workbooks.

Sub Создать_книгу()

Workbooks.Add

End Sub

Пример 2. Для открытия существующей рабочей книги используется метод Open коллекции Workbooks. Если путь к файлу не указан, то используется по умолчанию текущий путь:

Sub Открыть_книгу()

Workbooks.Open(“D:\Мои документы\Проба.xls”)

End Sub

Или в другом синтаксисе

Sub Открыть_книгу()

Workbooks.Open filename:=”D:\Мои документы\Проба.xls”

End Sub

Пример 3. Для сохранения рабочей книги, которая имеет свое имя, используется метод Save коллекции Workbooks. Если путь к файлу не указан, то используется по умолчанию текущий путь.

Sub Сохранить_книгу()

Workbooks(“Проба.xls”).Save

End Sub

Пример 4. Для сохранения новой рабочей книги в первый раз с присвоением ей имени используется метод SaveAs коллекции Workbooks. Этот же метод используется для сохранения рабочей книги под другим именем. Новое имя задается двумя способами: либо непосредственно указывается в программе

Sub Сохранить_книгу_как()

Workbooks(“Проба.xls”).SaveAs(“D:\Мои документы\Новая_книга.xls”)

End Sub

Либо запрашивается у пользователя с помощью специального диалога

Sub Сохранить_книгу_как()

Новое_имя=Application.GetSaveAsFilename

Workbooks(“Проба.xls”).SaveAs(Новое_имя)

End Sub

Пример 5. Как только рабочая книга была сохранена, ее свойства FullName, Name и Path изменяются. Свойство FullName будет содержать полное имя файла, свойство Name – имя файла, а свойство Path – только путь. В данном примере использована константа vbCr, позволяющая осуществлять вывод в окне сообщений (MsgBox) с новой строки, а также показан способ изменения заголовка данного окна:

Sub Информация_о_книге()

MsgBox_

Promt:=”Полное имя:”&ActiveWorkbook.FullName&vbCr&_

”Имя:”&ActiveWorkbook.Name&vbCr&_

“Путь”&ActiveWorkbook.Path,_

Title:=”Информация о книге”

End Sub

Пример 6. Для закрытия рабочей книги используется метод Close коллекции Worbooks. Данный метод позволяет указать с помощью параметра SaveChanges, сохранять перед закрытием или нет:

Sub Закрыть_книгу()

ActiveWorkbook.Close SaveChanges:=True,

Filename:=”D:\Мои документы\Проба.xls”

End Sub

Если параметр SaveChanges опущен, то пользователю будет выведен запрос на подтверждение сохранения:

Sub Закрыть_книгу()

ActiveWorkbook.Close FileName:=”D:\Мои документы\Проба.xls”

End Sub

Пример 7. Свойство Saved объекта Workbook позволяет определить, производилось ли сохранение рабочей книги после изменений

Sub Изменения_книги()

If ActiveWorkbook.Saved Then

MsgBox “Рабочая книга не изменена после последнего сохранения”

Else: MsgBox “Рабочая книга содержит не сохраненные изменения”

End if

End Sub

Объект Worksheet

Для добавления нового рабочего листа в книгу используется метод Add коллекции Worksheet: Worksheet.Add (Before, After, Count, Type). VBA присваивает новому рабочему листу очередной номер внутри рабочей книги. Все параметры являются необязательными. Если параметры Before и After опущены, то создается новый рабочий лист, который вставляется перед активным листом. Назначение параметров:

Before – задает лист, перед которым будет вставлен новый лист;

After – задает лист, после которого будет вставлен новый лист;

Count – задает количество новых листов, по умолчанию равен 1;

Type – задает тип создаваемого листа, по умолчанию xlWorksheet.

Пример 8. Добавление нового рабочего листа перед третьим листом в активной рабочей книге:

Sub Добавление_листа()

ActiveWorkbook.Worksheets.Add before:=Worksheets(3)

End Sub

Добавление нового рабочего листа после последнего листа в активной рабочей книге

Sub Добавление_листа()

ActiveWorkbook.Worksheets.Add

after:=Worksheets(Worksheets.Count)

End Sub

Добавление двух новых рабочих листов перед первым листом в активной рабочей книге:

Sub Добавление_листа()

ActiveWorkbook.Worksheets.Add count:=2

End Sub

Пример 9. Свойство Name объекта Worksheets позволяет программно изменять имя рабочего листа. Данный пример демонстрирует добавление нового листа в конец рабочей книги и его переименование:

Sub Добавление_листа()

Имя_последнего= Worksheets(Worksheets.Count).Name

Set Лист=Worksheets.Add(after:= Worksheets(Worksheets.Count))

Лист.Name= Имя_последнего & ”0”

MsgBox(“Был последний лист” & Имя_последнего & vbCr & “Стал лист” & Лист.Name)

End Sub

Задание 3.1.

Создайте макрос, который добавляет новый лист в конец рабочей книги и присваивает ему имя, роль которого играет текущее время в формате час.мин.сек. Подсказка: для получения текущего времени воспользуйтесь следующим фрагментом

Час= CSng(Hour(Time))

Мин= CSng(Minute(Time))

Сек= CSng(Second(Time))

Многократным запуском макроса убедитесь, что имена листов добавляются правильно.

Пример 10. Для удаления рабочего листа используется метод Delete объекта Worksheet. В данном примере производится удаление листа с именем «Лист 3». В ходе выполнения макроса у пользователя будет запрошено подтверждение на удаление листа.

Sub Удаление_листа()

ActiveWorkbook.Worksheets(“Лист 3”).Delete

End Sub

Пример 11. Для того, чтобы запрос не выводился, нужно пользоваться свойством DisplayAlerts:

Sub Макрос1()

Application.DisplayAlerts=False

ActiveWorkbook.Worksheets(“Лист54”).Delete

Application.DisplayAlerts=True

End Sub

Рабочие листы можно копировать и перемещать как в пределах одной рабочей книги, так и между ними. Метод Copy содержит два аргумента: Before и After, назначение которых такое же как и в методе Add. Если аргументы опущены рабочие листы копируются в новую книгу. Синтаксис метода Move не отличается от метода Copy.

Пример 12. Для копирования рабочего листа «Лист1» в позицию после листа «Лист3» метод Copy применяется следующим образом.

Sub Копирование_листа()

Worksheets(“Лист1”).Copy after:=Worksheets(“Лист3”)

End Sub

Пример 13. Перемещение Рабочего листа «Лист1» в новую рабочую книгу

Sub Перемещение_листа()

Worksheets(“Лист1”).Move

End Sub

Date: 2016-05-24; view: 440; Нарушение авторских прав