我想调用内部网站上的特定函数

Question

我正试图单击或调用Excel中VBA中的函数"Titlebar_simple_search"，如图所示。它在我工作场所的内部网页上。我知道我离目标还很远，但我想知道是否可以从哪里开始。

HTMLdoc是最好的方式吗？我应该首先调用函数所在的body类还是div类？

感谢提供的任何帮助

从网站打印scrn

Private Sub CommandButton4_Click()
Dim IE As Object
Set IE = New InternetExplorerMedium
IE.Visible = True
Url = "https://urlremovedduetoprivacy"
IE.Navigate Url
Do While IE.ReadyState = 4: DoEvents: Loop   'Do While
Do Until IE.ReadyState = 4: DoEvents: Loop   'Do Until
Application.Wait (Now + TimeValue("0:00:05"))
Dim HTMLdoc As HTMLDocument
Set HTMLdoc = IE.Document
HTMLdoc.getElementById("simple_search_link").Click

End Sub

Answer 1

看起来您需要首先导航一个帧，然后通过其id:获取元素

Ie.document.getElementsByName("titlebar")(0).contentDocument.getElementById("simple_search_link").click