ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Передача коллекции в качестве параметра
3 сообщений из 3, страница 1 из 1
Передача коллекции в качестве параметра
    #36378679
Mozok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mozok
Участник
Привет всем.
Возникла необходимость передать в функцию коллекцию.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Function buildSchedTree(ByRef schedWB As Workbook) As Collection 'Эта функция строит дерево
...
Private Function calcDifference(ByRef schedCol As Collection) As Collection 'Эта считает симметрическую разность двух деревьев
...
Dim schedTree, replTree As Collection
    Set schedTree = buildSchedTree(Workbooks.Open(schedFileName,  0 , True))
    replWB.Activate
    Set replTree = calcDifference(schedTree)
Офис 2007 наотрез отказывается исполнять этот код. На этапе интерпретации выдается ошибка "ByRef argument type mismatch". Когда в объявлении calcDifference пишу явно byVal, макро нормально выполняется. Но мне нужна передача именно по ссылке, а не по значению. Кто подскажет, что я тут неправильно нагородил?
--------------
Festina lente
...
Рейтинг: 0 / 0
21.12.2009, 23:26
| Ответить | Цитировать | Написать  
Передача коллекции в качестве параметра
    #36378696
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
Mozok,

Прочитайте справку по Dim Statement. Переменная schedTree описана как Variant. Надо описать как Collection.
...
Рейтинг: 0 / 0
21.12.2009, 23:50
| Ответить | Цитировать | Написать  
Передача коллекции в качестве параметра
    #36378730
Mozok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mozok
Участник
13-й квартал,

блин, точно ведь. Каждой переменной необходимо явно указывать тип, иначе она считается Variant. Спасибо.
...
Рейтинг: 0 / 0
22.12.2009, 00:35
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Передача коллекции в качестве параметра
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36378696&tid=2178685]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 251ms
total:  497ms
созд. / загр.: 497ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]