powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не присваивается объект
4 сообщений из 4, страница 1 из 1
Не присваивается объект
    #39869885
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте!

Делаю парсинг. Есть фрагмент макроса
Код: vbnet
1.
2.
3.
4.
5.
6.
...
Dim IE As Object
Dim objCollection As Object
...
Set objCollection = IE.document.getElementsByclassname("results-frame")(0).Children(0).Children(0).Children
...


Объект IE.document.getElementsByclassname("results-frame")(0).Children(0).Children(0).Children не присваивается к объекту objCollection . Вернее присваивается тип, но так и остается пустым.

Почему так получается? Как правильно написать?


Если вместо
Код: vbnet
1.
Dim objCollection As Object

написать так
Код: vbnet
1.
2.
3.
4.
5.
Dim objCollection As DispHTMLElementCollection
'или
Dim objCollection As HTMLElementCollection
'или
Dim objCollection As MSHTML.HTMLElementCollection

то на строке присваивания выдает ошибку "Run-time error '13': Type mismatch"
...
Рейтинг: 0 / 0
Не присваивается объект
    #39869914
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ferzmikkЕсть фрагмент макроса
Код: vbnet
1.
Dim objCollection As Object


А если его как Variant? чтобы подровнять типы...
...
Рейтинг: 0 / 0
Не присваивается объект
    #39869919
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AkinaА если его как Variant? чтобы подровнять типы...Объект objCollection так и остается пустым.
...
Рейтинг: 0 / 0
Не присваивается объект
    #39870080
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AkinaА если его как Variant? чтобы подровнять типы...Обратил внимание, когда то присваивается, а когда то - нет. Похоже это зависит от скорости выгрузки страницы.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не присваивается объект
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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