Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель 02.09.2024 от 01 августа 2025, 12:39

Название: Класс не зарегистрирован
Отправлено: Посетитель 02.09.2024 от 01 августа 2025, 12:39
Здравствуйте !
Подскажите, пожалуйста, при пробном написании попытки парсинга с сайта выдаёт ошибку "Класс не зарегистрирован".
Что неправильно ? Не связано ли это с тем, что InternetExplorer больше не поддерживается ?

Sub Парсинг()

Dim ie As InternetExplorer
Dim webpage As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
ie.AddressBar = False

ie.navigate ("https://autoshini.ru/podbor-shin")
Do While ie.Busy = True
Loop

End Sub
Название: Класс не зарегистрирован
Отправлено: Администратор от 01 августа 2025, 13:24
Библиотеку вы подключили в VBA: Tools - References... - Microsoft Internet Controls?
Название: Класс не зарегистрирован
Отправлено: Посетитель 02.09.2024 от 01 августа 2025, 13:29
Да, конечно.
Название: Класс не зарегистрирован
Отправлено: Администратор от 01 августа 2025, 14:01
Если так создавать объект:
Set ie = New SHDocVw.InternetExplorer
Название: Класс не зарегистрирован
Отправлено: Посетитель 02.09.2024 от 01 августа 2025, 14:30
Заменил. Ошибка та же.
Название: Класс не зарегистрирован
Отправлено: Администратор от 01 августа 2025, 16:14
Может быть, действительно, класс не зарегистрирован, что и указано в сообщении.
Посмотрите в виндоус-реестре, есть ли такая запись:
HKEY_CLASSES_ROOT\InternetExplorer.Application

В виндоус-реестр можно так зайти: щёлкните кнопке Пуск правой кнопкой мыши - Выполнить - regedit - OK.
Название: Класс не зарегистрирован
Отправлено: Посетитель 02.09.2024 от 01 августа 2025, 16:45
Есть

Название: Класс не зарегистрирован
Отправлено: Администратор от 01 августа 2025, 19:17
Вот такое пробовали? Регистрация чего-то там:
regsvr32 ieframe.dll

Так пробовали создавать:
Set ie = CreateObject("InternetExplorer.Application")
Название: Класс не зарегистрирован
Отправлено: Посетитель 02.09.2024 от 04 августа 2025, 11:04
"Вот такое пробовали? Регистрация чего-то там:
regsvr32 ieframe.dll"

Выдаёт ошибку .
Попробую взять с другого компьютера, если там сработает код парсинга.
Название: Класс не зарегистрирован
Отправлено: Посетитель 02.09.2024 от 04 августа 2025, 11:07
"Так пробовали создавать:
Set ie = CreateObject("InternetExplorer.Application")"

Да. Выдаёт ту же ошибку.
Название: Класс не зарегистрирован
Отправлено: Администратор от 04 августа 2025, 11:34
Не знаю, почему так, я не знаю устройство компьютера, я только знаю, как писать код на VBA.
Ни разу с таким не сталкивался.
Название: Класс не зарегистрирован
Отправлено: Посетитель 02.09.2024 от 06 августа 2025, 10:13
Спасибо.