从excel vba写到IE

时间:2015-09-15 14:39:22

标签: excel vba internet-explorer

我想在IE中输入一些文字。我使用Chrome中的inspect元素让id跟踪输入,然后我得到:

这是我的代码:

Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True
objIE.Navigate ("http://customerservice.ciena.com/BidRegister/Search.aspx")

Do
DoEvents
Loop Until objIE.ReadyState = 4

For Each element In objIE.Document.getElementsByTagName("input")
    Debug.Print element.ID
    If element.Type = "Text" And element.ID = "ctl00_P1_ucSearchFilter_txtBidNumber" Then
    element.Value = "LA-2013-0233"
    End If

Next element

问题是我无法再使用debug.print找到该ID。谁能告诉我一种不同的方式来写我的输入?

1 个答案:

答案 0 :(得分:0)

我试过这个并且工作了:

For Each elemento In objIE.Document.getElementsByTagName("input")
   If elemento.Name = "ctl00$Header1$txtQuickSearch" Then
        elemento.Value = "LA-2013-0233"
        Exit For
   End If
Next elemento

谢谢!