Создание приложений MS Excel

Проект приложения MS Excel представляет собой набор программных модулей, связанных с рабочей книгой.

Модель приложения MS Excel может включать множество объектов. Различают объекты и их семейства. Семейство – объект Collection – представляет собой объект, содержащий в себе другие объекты одного типа.

Объект Collection обладает одним свойством – Count, которое возвращает число элементов, содержащихся в семействе:

Collection.Count

Для разработки экономических программ достаточно знать основные объекты, такие, как: Application, Workbook(s), Worksheet(s), Range и Chart.

Основным среди множества объектов MS Excel является объект Application (Приложение), который представляет само приложение MS Excel. Этот объект имеет 120 свойств и 40 методов. Применяя эти свойства и методы, можно управлять внешним видом и поведением приложения.

Свойства объекта Application подразделяются на:

· Терминальные, определяющие свойства окна приложения.

· Свойства-участники.

Основные свойства объекта Application приведены в таблице 4.5.6

Таблица 4.5.6.

Свойства	Описание
Height	Определяет высоту окна приложения.
Left	Устанавливает расстояние от левого края экрана до левого края окна приложения.
Top	Устанавливает расстояние от верхнего края окна приложения до верхнего края экрана..
Width	Определяет ширину окна приложения.
ActiveWorkBook ActiveSheet ActiveCell ActiveChart	Возвращает активный объект: рабочую книгу, лист, ячейку, диаграмму.
ThisWorkbook	Возвращает рабочую книгу, содержащую выполняющийся макрос.
Cells	Возвращает объект Range, представляющий все ячейки активного рабочего листа.
Sheets	Возвращает коллекцию, содержащую все листы активной рабочей книги.
Charts	Возвращает коллекцию, содержащую все диаграммы активной рабочей книги.

Основные методы объекта Application:

OnKey - включает выполнение процедуры при нажатии заданной комбинации клавиш:

OnKey(Key, Procedure).

OnTime - определяет время запуска процедуры:

OnTime(Time, Procedure)

Run - запускает на выполнение макрос или подпрограмму:

Run(Макрос, Аргументы)

Wait - Приостанавливает работу приложения на заданное время:

Wait(Time)

Quit - Закрывает приложение.

Из событий, характерных для объекта Application, можно выделить следующие:

NewWorkBook - создание новой рабочей книги.

WorkBookActivate – активизация рабочей книги.

WorkBookBeforClose - закрытие рабочей книги.

WorkBookBeforSave – сохранение рабочей книги.

WorkBookOpen – открытие рабочей книги.

Объект Workbook представляет собой файл рабочей книги. Основные свойства этого объекта приведены в таблице 4.5.7.

Свойства	Описание
ActiveSheet	Возвращает активный лист книги
Application	Возвращает приложение
Count	Возвращает количество объектов колекции
Item	Возвращает конкретный объект коллекции
Sheets	Возвращает все рабочие листы активной книги
Worksheet	Возвращает все рабочие листы указанной книги
WriteReserved	Если равно True, документ закрыт для записи, если False, то открыт.

Основные методы объекта WorkBook:

Add – Создает новую рабочую книгу.

Activate – Активизирует первый лист указанной рабочей книги:

Worksbooks(Name).Activate

Close – Закрывает рабочую книгу.

OpenText – Открывает рабочую книгу:

WorkBooks.Open “Kniga1.xls”

Save – Сохраняет рабочую книгу.

SaveAs – Сохраняет рабочую книгу с назначением другого имени.

Рассмотрим на типовом примере, как управлять состоянием и поведением приложения из программы, используя его свойства, и методы.

Для этого:

1 Создадим рабочую книгу.

2 Используя команду меню Сервис – Макрос – Редактор Visual Basic создать проект.

3 Активизировать рабочую книгу.

4 На рабочем листе с именем Sheet1 (Лист1) поместим кнопку. Для этого необходимо предварительно выполнить команду Вид – Панели инструментов - Элементы управления.

5 Вызвать окно кода, кликнув дважды по кнопке.

6 Записать программный код:

Option Explicit

Private Sub CommandButton1_Click()

Application.Caption=”Упражнение №1. Свойства и методы приложения.”, vbInformation

MsgBox «Изменилась надпись в строке заголовка приложения»

Application.DisplayFormulaBar=False

MsgBox “Строка формул не отбражается”, vbInformation

Workbooks.Add

MsgBox “Создана новая рабочая книга”, vbInformation

Workbooks(«Книга2»).Activate

MsgBox “Новая рабочая книга активна”, vbInformation

End Sub

Дата добавления: 2014-12-10