Как можно изменить программу VBA для запуска из Internet Explorer в Microsoft Excel?

Question

Вот кусок кода, который я написал.

Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll)
Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection
Dim the_input_elements As MSHTML.IHTMLElementCollection
Dim input_element As MSHTML.HTMLInputElement
Dim IeDoc As MSHTML.HTMLDocument
Dim ie As MSHTML.HTMLDocument
Dim ie3 As MSHTML.HTMLDocument 'Dont forget to remove this
Dim ie2 As MSHTML.HTMLDocument 'To remove
Dim input_element2 As MSHTML.HTMLInputElement
Dim the_input_elements2 As MSHTML.IHTMLElementCollection
Dim objShell As Object 'CHECK MAYBE HERE IS THE ERROR. CHANGE FROM OBJECT TO SHELL??
Dim IE_count As Variant
Dim objShell3 As Object
Dim objShell2 As Object 'Dont forget to remove this at the end.
Dim my_url As Variant
Dim my_title As Variant 'Tp remove
Dim my_title2 As Variant 'To remove
Dim my_title3 As Variant 'To remove
Dim x As Variant
Dim element As HTMLObjectElement

 Sub Press_Button1()
 Set objIE = New SHDocVw.InternetExplorer

With objIE
    .Navigate "microsoft-edge:https://www.ndexsystems.com/fengine/fullservice/en/kerrfinancialsalogin.go?fromLogoff=true" ' Main page

    .Visible = 1
    'Do While .readyState <> 4: DoEvents: Loop
    Application.Wait (Now + TimeValue("0:00:02"))

Есть ли способ переключить весь этот код с работы в Internet Explorer на Microsoft Excel?У меня нет проблем с изменением типов данных переменных, которые я объявил выше.

Спасибо за вашу помощь!

Answer 1

В Edge нет поддержки ActiveX или COM.Он не имеет API, который может использовать VBA.

По соображениям безопасности Microsoft удаляет поддержку элементов управления ActiveX в MS Edge.Я предлагаю вам проверить веб-драйвер.WebDriver - это интерфейс удаленного управления, который позволяет выполнять самоанализ и контроль пользовательских агентов.Он обеспечивает независимый от платформы и языка проводной протокол как способ удаленного инструктирования поведения веб-браузеров внешними программами.См. WebDriver и Автоматическое тестирование в Microsoft Edge с помощью WebDriver .