2

getelementbyid (または名前) コードを機能させるのに苦労しています。私がやりたいことは、sendkeys を使用せずにログインの詳細を送信することです。おそらく、ウェブサイトを理解していないだけの問題です。要素を表示できます

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

これは、id= userName および name = userName を示しています。しかし、getelementbyid を実行しようとすると、あたかも存在しないかのように、オブジェクトが必要なエラーが発生します。

4

1 に答える 1

0

どうぞ

この 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
于 2013-06-11T10:00:22.673 に答える