excel - 为什么我不能点击提交按钮（91 错误 438 错误 VBA）？

Question

我正在尝试在 Intranet 页面上填写表格，但我不知道如何单击下一步按钮。

这是我的代码：

Option Explicit

Sub GetLTRTable()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.application")

    ie.Visible = True
    ie.navigate "myurl"

    Do Until ie.ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop

    Dim organization As Object
    Set organization = ie.Document.all.Item("Org")
        organization.selectedindex = 0

    ie.Document.getelementsbyname("CR1").Item(1).Checked = True
    ie.Document.getelementsbyname("CR2").Item(6).Checked = True   
    ie.Document.getelementsbyname("next").Click
End Sub

这是我的 HTML 代码：

<p><input type="submit" value="Cancel" name="Action"> <input type="submit" value="Next" name="Action"> </p>

我收到以下错误：

错误 438 “对象不支持此属性或方法”

或者：

错误 91“未设置错误变量或对象变量”

ie.Document.getelementsbyname("next").Click无论我使用getelementsbyid还是在线all.item

标签： excelvbainternet-explorerweb-scraping