为什么我不能单击“提交”按钮（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