我想调用内部网站上的特定功能

Question

我正在尝试单击或调用函数“Titlebar_simple_search”，如 Excel 中 VBA 的图片所示。它位于我工作场所的 Intranet 页面上。我知道我离目标还很远，但我想知道是否可以从哪里开始获得一些建议。

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

感谢任何帮助

print scrn from website

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