Html 无法开始下载

我正在自动下载一份报告，但正在努力让报告运行。手动执行流程时，我导航到报告区域并右键单击“以excel格式运行”

当我检查元素时，我有下面几行代码无法运行。

我已经试过了。点击一些不同的ID（“ext-gen152”）或（“ext-gen153”），但我认为我需要以不同的方式执行这一行，因为它不是一个可见的按钮，而是一个隐藏的菜单

如果这是简单的，并且在接受我的道歉之前已经被涵盖，但是在正确的方向上的一点将被交给。有没有一个真正好的资源vba与IE

我也尝试过在对象中循环元素，但不知道“ext-gen152”所在的对象的名称

---

嗨，Xarxziux，我应该在我的文本中标记附加到元素链接的JPEG。这是什么语言？那是HTML，不是JavaScript！看起来不太乐观。

Sub AP_Login()

Dim Site As Object
Set Site = CreateObject("InternetExplorer.application")

Dim AP_ID As String
Dim AP_PW As String
Dim URL As String
Dim ControlSht As Worksheet
Dim Obj As Object

Site.Visible = True
Set ControlSht = Sheet2

AP_ID = ControlSht.Range("user").Value
AP_PW = ControlSht.Range("Password").Value
URL = ControlSht.Range("LogPage").Value

Site.Navigate URL
While Site.Busy
Wend

Dim oHTMLDoc As Object
Set oHTMLDoc = Site.Document

oHTMLDoc.getElementById("inputEmail").Value = AP_ID
oHTMLDoc.getElementById("inputPassword").Value = AP_PW
oHTMLDoc.getElementById("submit").Click

While Site.Busy
Wend

URL = ControlSht.Range("ReportPage").Value  

Site.Navigate URL
While Site.Busy
Wend


oHTMLDoc.getElementById("ext-gen153").Click



Site.Visible = True

End Sub