VBA：HTML文書のネストされた要素の検索

Question

this linkのすべてのhrefリンクを削り取ろうとしています。

私は、ページ上の製品のリンクを取得するには、次のコードを使用しています：私はdiv_reultでエラーを取得しています

Sub urlCatch() 

Dim internet As Object 
Dim internetdata As Object 
Dim div_result As Object 
Dim header_links As Object 
Dim link, itm As Object 
Dim url As String 
Dim X As Variant 

Set internet = CreateObject("InternetExplorer.Application") 
internet.Visible = True 

url = "http://www.dell.com/vg/p/desktops.aspx?c=vg&cs=vgdhs1&l=en&s=dhs&~ck=mn" 
internet.Navigate url 

Do Until internet.ReadyState >= 4 
    DoEvents 
Loop 


Set internetdata = internet.document 
Set div_result = internetdata.getelementsbyclassname("categorySubNavigation").getelementsbyclassname("c4 seriesOptions") 
Set header_links = div_result.getelementsbytagname("a") 
For Each itm In header_links 
    Set link = itm.ChildNodes.Item(0) 
    Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = link.href 
Next 

End Sub 

：「オブジェクトはこのプロパティまたはメソッドをサポートしていません」。

私は何かを取得するために要素を使用しているのは初めてです。だから、私が現在気づいていない間違いをしているかもしれません。

私のコードを見て、私がここで何をしているのかを教えてください。

私はこれらのリンクをすべて取得するために正規表現を使用する必要があるかもしれないと私の友人の一人から聞いてきましたが、この方法を最初に保留したいと考えていました。

いくつかのガイダンスを教えてください。ありがとう。

Answer 1

GetElementsByTagNameまたは他のフェッチメソッドは、単一の要素で動作し、コレクションでは動作しません。別のループが必要です。

---

Sub urlCatch() 

    Dim url     As String 
    Dim internet   As Object 
    Dim internetdata 
    Dim div_result 
    Dim links 
    Dim itm 
    Dim itm2 



    Set internet = CreateObject("InternetExplorer.Application") 
    internet.Visible = True 

    url = "http://www.dell.com/vg/p/desktops.aspx?c=vg&cs=vgdhs1&l=en&s=dhs&~ck=mn" 
    internet.Navigate url 

    Do 
     DoEvents 
    Loop Until internet.ReadyState >= 4 And Not internet.busy 


    Set internetdata = internet.document.body 

    Set div_result = internetdata.getelementsbyclassname("c4 seriesOptions") 
    For Each itm In div_result 
     Set links = itm.getElementsByTagName("A") 
     For Each itm2 In links 
      Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = itm2.href 
     Next 
    Next 


End Sub