vba - getelementbyid 通过 msexcel vba 对象需要 424

Question

我一直在努力让 getelementbyid（或名称）代码正常工作。我想要做的是在不使用 sendkeys 的情况下提交登录详细信息。可能只是不了解网站的问题。我可以通过查看元素

MsgBox (Mid(ObjIE.Document.frames(1).Document.body.outerHTML, 1800, 1000))

其中显示 id= userName 和 name = userName。但是当我尝试 getelementbyid 时，它会出现一个 object required 错误，就好像它不存在一样。

Answer 1

干得好

而不是这个 URL http://fieldwork.genesisenergy.co.nz/

我直接导航到下面的框架 src

<frame name="Login" src="LoginGenesis.aspx?bgColor=FFFFFF&trimColor=FF6600" frameBorder="0" marginWidth="0" marginHeight="0" scrolling="auto">

  Sub Website()

    Dim IE As Object, Doc As Object, UserName As Object, Password As Object, strCode As String


    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
   ' IE.navigate "http://fieldwork.genesisenergy.co.nz/"

      IE.navigate "http://fieldwork.genesisenergy.co.nz/LoginGenesis.aspx?bgColor=FFFFFF&trimColor=FF6600"

        Do While IE.readystate <> 4: DoEvents: Loop

        Set Doc = CreateObject("htmlfile")
        Set Doc = IE.document

        Set UserName = Doc.getelementbyid("userName")
        UserName.Value = "santosh"


        Set Password = Doc.getelementbyid("userPassword")
        Password.Value = "santosh@123"


       Set btnLogin = Doc.getelementbyid("loginUser")
        btnLogin.Click
End Sub