VBAを使用したHTMLテーブルのスクラブ

Question

以下のスクリプトを使用して、HTMLテーブルの値をlink1とlink2のリンクから正常にワークブックに戻しています。しかし、私が次のlink3のために同じスクリプトを使用しようとしているとき、何も返されません。私はそれがウェブサイト上に存在する複雑なHTMLテーブル構造によると思う。私はコードが.Item（0）の数はテーブルの複雑さのために調整する必要がありますが、アドバイスをお願いします。

Sub Web_Data() 
    Dim http As New XMLHTTP60, html As New HTMLDocument 
    Dim topic As HTMLHtmlElement 

    With http 
     .Open "GET", "http://www.dolphinfitness.co.uk/en/optimum-nutrition/", False 
     .send 
     html.body.innerHTML = .responseText 
    End With 

    For Each topic In html.getElementsByClassName("category-products") 
     With topic.getElementsByClassName("product-name") 
      If .Length Then x = x + 1: Cells(x, 1) = .Item(0).innerText 
     End With 
     With topic.getElementsByClassName("price") 
      If .Length Then Cells(x, 2) = .Item(0).innerText 
     End With 
    Next topic 
End Sub 

Answer 1

あなたの投稿に記載されているサイトは、さまざまな商品の価格を解析する際に少し難しいです。いくつかの製品は元の価格を持っており、残りの製品は特別な価格を持っています。式を使ってテクニックを適用するまで、それらを一度にすべて解析することはできません。私はそれらを扱うことができるxpathを書いており、あなたはそれらをすべて得ることができるでしょう。スクリプトは次のとおりです。

スクリプトの実行に問題がある場合は教えてください。 Btw、vbaでのセレンのバインディングには、「エラーが発生したときに次回に再開する」というような性質がありません。ループの前に配置してください。ありがとう。