Свойства и методы объекта application

Следует заметить, что в Office 2000 справку выдает Мастер ответов, обладающий новыми возможностями. Его можно настроить так, что он будет выдавать справки и по объектам, спроектированным программистом.

Просматривать все объекты в поисках нужного — занятие довольно утомительное, поэтому в Object Browser имеются инструменты поиска. Ниже окна Project/Library расположен еще один комбинированный список, где нужно задать имя элемента поиска, а затем щелкнуть рядом расположенную кнопку поиска. При необходимости поиск можно осуществлять в одной из библиотек или во всех библиотеках (All libraries). Результаты поиска отображаются в специальном окне Search Results. На рис. 1.5 показаны результаты поиска слова Data в одной из библиотек.

В самом низу окна просмотра расположено еще одно полезное средство — окно Details, отображающее сведения о выбранном элементе. Эта информация может содержать гиперссылки, выбирая которые, можно получать следующие порции информации. Для свойств в этом окне указывается их тип, для методов — полное описание всех аргументов, включая обязательные и возможные. Информацию из этого окна можно копировать в буфер или непосредственно перетащить в свой текст.

Еще один, на наш взгляд, недостаток этой хорошо сделанной справочной системы по объектам состоит в том, что невозможно выделить, копировать и печатать содержимое окон браузера (кроме справки). Мне, например, необходимо было получить список всех объектов того или иного класса. Для его получения приходилось заниматься утомительной операцией копирования по частям, получая очередную порцию прокруткой в окне.

метод Add семейства VBComponents (1 – для добавления стандартного модуля в проект, 2 – класса, 3 – формы) и метод InsertLines объекта CodeModule (для добавления новой строки в код создаваемого модуля). Метод Add позволяет создавать не только стандартные, но и именованные модули, классы и формы. Например,

Obj. VBE. ActiveVBProject. VBComponents. Add 3

‘Добавить форму с именем UserForm1

Obj. VBE. ActiveVBProject. VBComponents. Add(3).Name = "My"

‘Добавить форму с именем My

Obj. VBE. ActiveVBProject. VBComponents. RemoveObj. VBE. ActiveVBProject. VBComponents("My")

‘Удалить компонент проекта с именем My

objOffice. VBE. ActiveVBProject. VBComponents. RemoveobjModule

‘Удалить модуль

37. Объектная модель MS Excel. Свойства и методы объекта Application.

Известно, что MS Excel является одним из наиболее мощных приложений, когда-либо созданных для Windows. Любой программист захочет использовать его возможности в своих проектах.

MS Excel разработан на основе компонентной (объектной) моде­ли, то есть представляет собой набор семейств и объектов (например, приложение – Application, рабочая книга – WorkBook, лист – Work­Sheet, диапазон – Range, диаграммы – Chart, панель инструментов – CommandBar, пользовательская форма UserForm с элементами управ­ления и т. д.) со своими методами, свойствами и событиями. Чтобы обратиться к свойствам, методам и событиям объектов и семейств COM-приложений, разработчик создает в программе объектную пере­менную и использует особенности программ на языке VBA (Visual Basic for Application) – внутреннем языке офисных приложений.

Перечислим основные свойства, методы и события объектов Application, WorkBook, WorkSheet. 

Свойства и методы объекта Application

38. Объектная модель MS Excel. Свойства, методы, события объекта WorkBook.

39. Объектная модель MS Excel. Свойства, методы, события объекта WorkSheet

40. Методы класса WorkSheetFunction объектной модели MS Excel. Пример на вычисление выражения.

Пример. В проекте VB вычислить выражение, используя офисное приложение MS Excel. VB имеет ограниченное количество стандартных функций, чего нельзя сказать об MS Excel. В MS Excel имеется специальный класс WorkSheetFunction, содержащий все функции, доступные через окно VBA, например, гиперболические и обратные функции, функции нахождения обратных и транспонированных матриц, получения случайных чисел различных законов распределения и т. д.

Private Sub Command1_Click()

Dim F As String, b As String, Res As Double, OE As Object

‘СоздаемOLE — объект

Set OE = CreateObject("Excel. Application")

p# = OE.WorkSheetFunction.Pi ‘Получаем значение числа π