Шаг 12 - Тестируем элемент на VBA

Теперь мы тот же элемент протестируем на VBA дабы убедиться, что все работает и там. Почувствуем повторное использование кода :-) !!!

Запускайте Excel и редактор VBA. Создадим макрос с именем MyTest. В результате у Вас появится модуль - Модуль1, а в нем макрос.

Sub MyTest()

End Sub

Теперь наш элемент нужно подключить к проекту. Делается это через меню Сервис -> Ссылки. Дальше необходимо подключить библиотеку типов. Вот так:

12_1.gif (8217 b)

После подключения у нас есть возможность изучить свойства нашего элемента. Выбирайте меню Вид -> Просмотр обьектов. Появится диалоговое окно. В списке выбора выбирите нашу библиотеку ATLTestLib. В окне классов появится наш класс ATLClass. Щелкните на нём два раза и вы увидите функции.

12_2.gif (4899 b)

Теперь все готово. Пишем код VBA

Sub MyTest()
	' Объявляем переменную типа наш класс ;-)
	' Мультик помните Девис и Батхен - Типа того :-)
	Dim MyAtl As ATLClass
	' Инициализация
	Set MyAtl = New ATLClass
	' Вызов метода
	MyAtl.ATLMessage
End Sub

Запускайте. И всё будет нормально. Появится сообщение от класса. Как и в предыдущем примере.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.