Очень дано, написал макрос, который с внутреннего корпоративного сайта "забирает" справочник сотрудников компании. В текущем месяце макрос перестал работать, по моему мнению, из-за обновления Internet Explorer или завершением его поддержки. (Теперь после запуска макроса открывается страница IE и макрос завершает работу с ошибкой) "Рабочий пример" предоставить не могу, т.к. эта информация ДСП, да и доступа к ресурсам компании из "вне" нет. Ниже часть кода, Подскажите, пож-та, возможные варианты решения проблемы....
Код
Dim oIE As InternetExplorerMedium, sHtml As String
Dim tmp, i As Long
Dim sAnswer As String, IE As Object, avArr, li As Long
Set oIE = CreateObject("InternetExplorer.Application") 'запускаем explorer
Set oIE = New InternetExplorerMedium
oIE.Visible = 0 'видимость explorer - 0-скрыть 1-показать
s = "****************" 'ссылка
oIE.Navigate (s) 'загружаем сайт
While oIE.Busy Or oIE.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set NodeList = oIE.Document.getElementsByTagName("Input") ' выбираем все поля ввода
Set maPageHtml = oIE.Document: DoEvents: DoEvents
If oIE.LocationURL = s Then
maPageHtml.getElementsByName("USER_LOGIN").Item(0).Value = "********"
maPageHtml.getElementsByName("USER_PASSWORD").Item(0).Value = "*******"
NodeList(6).Click
End If
While oIE.Busy Or (oIE.ReadyState <> 4): DoEvents: Wend
sAnswer = oIE.Document.body.innerHTML
avArr = Split(sAnswer, Chr(10))
schet = 0
Макрос может работать с сайтом без использования браузера (но код надо полностью переписывать) Но с кодом мы вам тут не поможем, ибо нет доступа к сайту Пример кода есть здесь: https://excelvba.ru/code/YandexMarketAuthentication