Ошибка Run-time error '-2125463506 (8150002e)': Automation error

Пользователь

Сообщений: 37 Регистрация: 20.03.2016

28.01.2018 02:17:12

Здравствуйте.
При запуске макроса периодически выдается ошибка : Ошибка Run-time error '-2125463506 (8150002e)': Automation error
При нажатии дебаг следующее: http://prntscr.com/i6j33n
Макрос большой и выполняет много всего, минут 10 может выполняться, иногда и больше, если интернет тормозит. Ошибка вылазит где то 1 раз из 5-8, в остальные попытки ошибки нет.
Подскажите, пожалуйста, как можно исправить?

Игорь

Пользователь

Сообщений: 3697 Регистрация: 23.12.2012

28.01.2018 10:19:44

А в чем смысл вообще этих макросов?
Ну, загрузили страницу, - и всё?

Надо просто дать команду для выполнения скрипта? (а данные со страницы этой не надо брать)
тогда браузер использовать необязательно, - и ошибки не будет

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

dxn Пользователь Сообщений: 37 Регистрация: 20.03.2016	#3 28.01.2018 17:10:53 Игорь, да, надо просто запустить скрипт, данные со страницы не нужны

Игорь

Пользователь

Сообщений: 3697 Регистрация: 23.12.2012

28.01.2018 18:55:06

Тогда все проще делается:

Код

sub test()
SendRequest "ваш URL здесь"
end sub

Function SendRequest(ByVal sURL As String) As String
    On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", sURL, true
        .send
    End With
End Function

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

dxn Пользователь Сообщений: 37 Регистрация: 20.03.2016	#5 28.01.2018 19:53:48 Игорь, вроде как все корректно работает, даже быстрее стало за счет того, что макросу не приходится дожидаться завершения скрипта, а скрипт выполняется минуты 3. Спасибо!

Читают тему