如何让 VBA 提交 javascript 表单？

Question

我不确定我是否正确引用了按钮。我不断得到：运行时错误“438”：对象不支持此属性或方法。这是我的代码目前的样子：Sub russInd()    Dim oButton As Object, HTMLdoc As Object    Dim sht1 As Worksheet, myURL As String    Set ie = CreateObject("InternetExplorer.Application")        Set sht1 = Worksheets("Day 1")        myURL = sht1.Cells(32, 2).Value        ie.navigate myURL        ie.Visible = True        Do Until ie.ReadyState = 4            DoEvents        Loop        'Locate The correct forms and buttons        Set HTMLdoc = ie.document        Set oButton = HTMLdoc.querySelectorAll("a[href='javascript:submitForm(document.forms[0].action);']")        'Check All Checkboxes        HTMLdoc.getElementByID("chkAll").Click        oButton.ClickEnd Sub我使用的网页是：  https://indexcalculator.ftserussell.com/下面是网页代码：我需要单击下一个按钮，我确实尝试使用.getElementByID("CtlNavigation_lblControl")要单击按钮，但是只是跳过了命令，我猜它什么也没单击。谢谢！

Answer 1

将您的选择器设置为：（意思是在父A元素中查找任何图像。）

Set oButton = HTMLdoc.querySelectorAll("a > img")

这是修改后的完整代码：

Sub russInd()

    Dim oButton As Object, HTMLdoc As Object

    Dim sht1 As Worksheet, myURL As String

    Set ie = CreateObject("InternetExplorer.Application")

        Set sht1 = Worksheets("Day 1")

        myURL = sht1.Cells(32, 2).Value

        ie.navigate myURL

        ie.Visible = True

        Do Until ie.ReadyState = 4

            DoEvents

        Loop

        'Locate The correct forms and buttons

        Set HTMLdoc = ie.document

        Set oButton = HTMLdoc.querySelectorAll("a > img")

        'Check All Checkboxes

        HTMLdoc.getElementByID("chkAll").Click

        oButton.Click

End Sub