Web サイトを自動的に解析しようとしています (例: http://www.delhaizedirect.be/nl/Search/Duvelと VBA のリストの最初の項目の価格を取得します。したがって、HTML を取得しています。しかし、HTML を解析して DOMDocument にし、XPath クエリを適用すると、結果が得られません。
これは私が使用しているコードです:
Public Function zoekDelhaizePrijs(Artikel As String)
Dim URL As String
URL = "http://www.delhaizedirect.be/nl/Search/" + Artikel
Dim website As Object
Set website = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Call website.Open("GET", URL, False)
Call website.Send("")
Dim XPathQuery As String
XPathQuery = "/html/body/div[1]/div[3]/div[1]/div[1]/div[3]/ul/div[1]/div/div[2]/p[1]"
Dim dom As DOMDocument60
Set dom = New DOMDocument60
dom.async = False
dom.validateOnParse = False
'Debug.Print website.responseText
dom.LoadXML website.responseText
dom.setProperty "SelectionLanguage", "XPath"
Dim node As IXMLDOMNodeList
Set node = dom.SelectNodes(XPathQuery)
Dim title As IXMLDOMNode
For Each title In node
Debug.Print title.Text
Next
End Function
誰にもアイデアはありますか？
前もってありがとう、トム