訪問DispHTMLElementCollection屬性

Question

我需要遍歷一個對象的元素（如調試器所指出的）爲DispHTMLElementCollection。

似乎無法訪問DispHTMLElementCollection的屬性，因爲在此頁面上有一個包含50個td標記的表，並且當我打印出此對象的長度時，它將返回0。

有關這方面的任何信息，

謝謝。

編輯：

使用這個片段中，你仍然需要破解密碼按下搜索按鈕，顯示了一定的成果，但在那之後，仍返回zero的長度...

Dim objHTML As HTMLDocument 

Set ie = New InternetExplorer 
With ie 
    .navigate "https://www.oeko-tex.com/en/manufacturers/certified_products/certified_products.html" 
    .Visible = True 
    While .Busy Or .readyState <> READYSTATE_COMPLETE 
     DoEvents 
    Wend 
    Set objHTML = .document 
    DoEvents 
End With 
Set elementONE = objHTML.getElementsByTagName("td") 
Debug.Print TypeName(elementONE) 
Debug.Print elementONE.Length 

Answer 1

使用從蒂姆·威廉姆斯

反饋

Sub test() 

    Dim objHTML As HTMLDocument 
    Dim ie As InternetExplorer 
    Dim oElemets As Object 
    Dim oElement As Object 

     Dim h As HTMLOptionElementFactory 
    Set ie = New InternetExplorer 
    With ie 
     .navigate "https://www.oeko-tex.com/en/manufacturers/certified_products/certified_products.html" 
     .Visible = True 
     While .Busy Or .readyState <> READYSTATE_COMPLETE 
      DoEvents 
     Wend 
     Set objHTML = .document 
     DoEvents 
    End With 

    ' As per the suggestion Tim Williams proposed 
    Set objHTML = objHTML.getElementById("customer-profile") 
    Set oElemets = objHTML.getElementsByTagName("td") 


    For Each oElement In oElemets 
     Debug.Print oElement.nodeName 
    Next 

End Sub 

感謝