Гость
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не присваивается объект / 4 сообщений из 4, страница 1 из 1
01.10.2019, 12:59
    #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
01.10.2019, 13:25
    #39869914
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не присваивается объект
ferzmikkЕсть фрагмент макроса
Код: vbnet
1.
Dim objCollection As Object


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


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