Основы офисного программирования и язык VBA


Обмен информацией между документами - часть 4


Можно видеть, что доступ к информации не представляет трудностей.

Public Sub PrintGlobal() Dim MyrOne As Range, MyrTwo As Range, MyrThree As Range

Debug.Print ("Работает процедура PrintOne") Debug.Print ("Печать глобальных переменных") Debug.Print (One & "-" & Two & "-" & Three)

Debug.Print ("Допустимы ссылки на ячейки различных рабочих книг!") Set MyrOne = Range("[BookOne.xls]Sheet1!D1") Debug.Print MyrOne Set MyrTwo = Range("[BookTwo.xls]Sheet1!D1") Debug.Print MyrTwo Set MyrThree = Range("[BookThree.xls]Sheet1!D1") Debug.Print MyrThree MsgBox ("Everything is OK! Look at Immediate Window") End Sub

Вот результаты отладочной печати в конце работы этой процедуры:

Работает процедура PrintOne Печать глобальных переменных My value is One -My value is One -My value is One Допустимы ссылки на ячейки различных рабочих книг! BookOne BookTwo BookThree

Всем глобальным переменным предварительно было присвоено одно и то же значение. Книги BookOne, BookTwo, BookThree.xls на первой странице в ячейке D1 хранят свои названия, их и печатает наша процедура, вызываемая в проекте одной из этих книг.




Начало  Назад  Вперед