404 Status auf XMLHTTP mit VBA, aber die URL öffnet im Browser

Question

Ich versuche, einige Informationen von einer Website zu bekommen, aber ich bekomme den Status 404, obwohl die URL in jedem Browserfenster korrekt geöffnet wird. Dies ist der Code Ich verwende:

Sub GetURL() 

Dim xhr As MSXML2.XMLHTTP60 
Dim doc As MSHTML.HTMLDocument 

Set xhr = New MSXML2.XMLHTTP60 

Url = "http://sklep.trefl.com/en/puzzle.html#price%5Bfrom%5D=0&price%5Bto%5D=9999999&p=1&limit=30" 

With xhr 
    .Open "GET", Url, False 
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.100 Safari/537.36" 
    .send 
    If .readyState = 4 And .Status = 200 Then 
     Set doc = New MSHTML.HTMLDocument 
     wtext = .responseText 
    Else 
     Debug.Print "error" 
    End If 
End With 

End Sub 

Was könnte das Problem sein? Ich habe es mit und ohne https versucht. Ich habe auch versucht, den "#" Character auf "% 23" zu kodieren.

Danke!

Answer 1

Können Sie es ohne "#price%5Bfrom%5D=0&price%5Bto%5D=9999999&p=1&limit=30" versuchen? - Nur "http://sklep.trefl.com/en/puzzle.html" und Sie erhalten den richtigen Statuscode.

 
Sub GetURL() 

Dim xhr As MSXML2.XMLHTTP60 
Dim doc As MSHTML.HTMLDocument 
Dim Url As String 

Set xhr = New MSXML2.XMLHTTP60 

Url = "http://sklep.trefl.com/en/puzzle.html" 

With xhr 
    .Open "GET", Url, False 
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/61.0.3163.100 Safari/537.36" 
    .send 
    If .readyState = 4 And .Status = 200 Then 
     Set doc = New MSHTML.HTMLDocument 
     wtext = .responseText 
    Else 
     Debug.Print "error" 
    End If 
End With 

End Sub

Auf jeden Fall können Sie den Inhalt für diese URL (http://sklep.trefl.com/en/puzzle.html#price%5Bfrom%5D=0&price%5Bto%5D=9999999&p=1&limit=30) erhalten. Überprüfen Sie dies:

 
... 
    Else 
     Debug.Print .responseText 
    End If 
...