Details aus WEb-Site auslesen

Function LadeURL(url As String, antwort) As Boolean Dim request As New WinHttpRequest request.Open "GET", url, False request.setRequestHeader "User-Agent", "Mozilla/5.0" On Error Resume Next request.send If Err.Number > 0 Then Err.Clear antwort = "" LadeURL = False Else ' hier soll das Ergebnis in die Variable antwort übergeben werden antwort = request.responseText LadeURL = True End If On Error GoTo 0 Set request = Nothing End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jowe,

Du kannst die gewünschten Inhalte mit dem Makro unten abrufen. Du kannst daraus auch eine Funktion machen und statt Debug.Print den Funktionsnamen hinschreiben. Ich habe die beiden Inhaltsteile Autor und Titel zu einem String zusammen gebaut, weil Du es so angegeben hast. Man die natürlich auch getrennt behandeln.

Du hast zwar schon einen User Agent angegeben, aber der ist ungültig. Deshalb wurde die Seite gar nicht geladen, sondern Fehler 403 zurückgeliefert. Du kannst gültige User Agent Strings für den FireFox hier einsehen:
https://www.whatismybrowser.com/guides/the-latest-user-agent/firefox


Sub ThaliaItem()

  Dim url As String
  Dim doc As Object
  Dim result As String
  
  Set doc = CreateObject("htmlFile")
  
  With CreateObject("MSXML2.XMLHTTP.6.0")
url = "https://www.thalia.de/suche?filterPATHROOT=2&sq=9783596707553"
    .Open "GET", url, False
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:109.0) Gecko/20100101 Firefox/113.0"
    .Send
    
    If .Status = 200 Then
      doc.body.innerhtml = .responseText
      result = Trim(doc.getElementsByClassName("tm-artikeldetails__autor")(0).innertext)
      result = result & " " & Trim(doc.getElementsByClassName("tm-artikeldetails__titel")(0).innertext)
    Else
      MsgBox "Page not loaded. HTTP status " & .Status
    End If
  End With
  
  Debug.Print result
End Sub

Viele Grüße,

Zwenn

Moin alle,

hab das Makro von Zwenn getestet...und...auch Err 403 erhalten :-)

Dann hab ich nach requestheader gegoogelt, diese Seite...
https://www.df.eu/blog/http-header-wissenswertes-uber-http-kopfzeilen/
...gefunden...

...und nach einigen Tests war dann diese Codezeile...


.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:109.0) Gecko/20100101 Firefox/113.0 (Chrome auf Windows 11)"

...erfolgreich!

Es macht wohl wirklich einen Unterschied, ob man Win11 (wie Jochen + ich) oder Win 10 (wie Zwenn) verwendet.

Jdflls gibts kein Err 403 mehr, und Rückgabewert im Direkt-Fenster ist:
Klaus-Peter Wolf Ein mörderisches Paar - Das Versprechen

Hilfts?

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread