使用VBA和輸入類型「隱藏」的IE自動化（IE8）

Question

我正在使用vba自動化Internet Explorer中的站點。在這一點上，我一直非常成功。我遇到的問題是有一個輸入字段，類型是「隱藏」，而不是文本。我如何解決這個問題？我知道必須有一種方式。

感謝您的任何建議。

Answer 1

下面的例子演示瞭如何通過指數環是指輸入元素：

Sub Test() 
    Set objIE = CreateObject("InternetExplorer.Application") 
    objIE.Visible = True 
    ' navigate and download the web page 
    objIE.Navigate "https://www.yahoo.com/" 
    Do While objIE.ReadyState <> 4 Or objIE.Busy 
     DoEvents 
    Loop 
    ' retrieve document object 
    Set objDocument = objIE.document 
    ' retrieve forms collection 
    Set colForms = objDocument.forms 
    ' retrieve the first form object by index 
    Set objForm = colForms(0) 
    ' retrieve the form input tags collection 
    Set colInputTags = objForm.getElementsByTagName("input") 
    ' loop through all input tags in the form 
    For n = 0 To colInputTags.Length - 1 
     ' refer to the certain input tag by index 
     Set objInputTag = colInputTags(n) 
     ' output 
     Debug.Print n _ 
      & " (" & objInputTag.Type & ") " _ 
      & objInputTag.Name & " = " _ 
      & objInputTag.Value 
    Next 
    ' refer to input tag #0 
    Set objElement = colInputTags(0) 
    ' hide the search inputbox 
    objElement.Type = "hidden" 
    ' refer to input tag #4 
    Set objElement = colInputTags(4) 
    ' output the current value 
    Debug.Print "#4 value = " & objElement.Value 
    ' cnange the value 
    objElement.Value = "input tag #4" 
    ' cnange the type 
    objElement.Type = "Text" 
    ' refer to input tag #5 
    Set objElement = colInputTags(5) 
    ' cnange the value 
    objElement.Value = "input tag #5" 
    ' cnange the type 
    objElement.Type = "Text" 
    ' quit IE 
    objIE.Quit 
End Sub 

的代碼給我下面的輸出：

正如你所看到的，隱藏主輸入標籤，輸出隱藏的輸入標籤＃4的值，並且改變＃4和＃5的類型和值，因此網頁看起來像：