Я хочу выполнить один код из Excel, чтобы он открывал окно поиска счетов с веб-сайта. я получил код, но макрос не нажимает на «href», а также не выдает никакой ошибки. Не могли бы вы помочь мне решить проблему.
Sub ExceltoHTML()
Dim ie As New SHDocVw.InternetExplorer
Dim ies As New SHDocVw.InternetExplorer
Dim HTMLDOC As MSHTML.HTMLDocument
Dim HTMLINPUT As MSHTML.IHTMLElement
Dim HTMLAS As MSHTML.IHTMLElementCollection
Dim HTMLA As MSHTML.IHTMLElement
ie.Visible = True
ie.Navigate "https://travelex-prod.proactisp2p.com/ClassicP2P/Invoicing/Home.aspx"
Do While ie.ReadyState <> READYSTATE_COMPLETE
Loop
Set HTMLDOC = ie.Document
Set HTMLAS = HTMLDOC.getElementsByTagName("a")
For Each HTMLA In HTMLAS
'Debug.Print HTMLA.getAttribute("Classname"), HTMLA.getAttribute("href"), HTMLA.getAttribute("rel")
If HTMLA.getAttribute("href")="https://travelexprod.proactisp2p.com/ClassicP2P/Invoicing/Plus/ViewInvoiceSearch.aspx" Then
HTMLA.Click
End If