Werte aus dem WEB in Tabelle einfügen

[Ratko96]

Hallo zusammen

Ich möchte gerne eine Tabelle erstellen, in der ich diverse Preiswerte einer Seite als Excel Wert anzeigen und stets aktualisieren kann. Es sollen verschiedene Wert einer gleichen Webseite sein, sprich die verschiedenen Werte sind auf der gleichen Internetseite aber intern noch unter anderem Pfad.

Beispiel:

Webseite: https://www.habbowert.de/index.php?site=48&dfurni=426

Preiswert von Artikel in Excel einfügen. Preiswert gemäss Bild.



Ich kann durch das verwenden von "Daten - Aus dem Web..." keine Auswertung machen leider. Gibt es eine andere Möglichkeit?

Herzlichen Dank für Ratschläge - Gruss

[WillWissen]

Hallo,

ich gehe davon aus, dass die Webseite keine "anzapfbaren" Tabellen zur Verfügung stellt. Kann's nicht nachprüfen, da ich beim Aufruf der Seite dieses zu lesen bekomme:

   

[snb]

@WW

Ublock Origin ?

[Ratko96]

Also spricht das dafür, dass sich nichts ziehen lässt? Kann man die Blockade nicht umgehen, ich möchte ja keine Werte manipulieren, sondern nur auslesen.

[Zwenn]

Hallo Ratko96,

auch wenn ich mir nicht sicher bin, was Dein eigentliches Ziel ist, aber individuelle Werte von Webseiten kann man über das DOM (Documenmt Object Model) auslesen. An den Preis und die Preis-Spanne kommst Du so:

Code:

Sub preisAuslesen()

Dim browser As Object
Dim url As String
Dim knotenPreis As Object
Dim knotenPreisSpanne As Object
Dim preis As String
Dim preisSpanne As String

  url = "https://www.habbowert.de/index.php?site=48&dfurni=426"
 
  'Seite im IE öffnen
  Set browser = CreateObject("internetexplorer.application")
  browser.Visible = False
  browser.Navigate url
  Do Until browser.ReadyState = 4: DoEvents: Loop
 
  'Den Preis und Preisspanne auslesen
  Set knotenPreis = browser.document.getElementByID("debate_furni_box_infos_buyprice")
  Set knotenPreisSpanne = browser.document.getElementByID("debate_furni_price")
 
  'Preis und Preis-Spanne speichern
  preis = knotenPreis.innertext
  preisSpanne = knotenPreisSpanne.innertext
 
  'Preis und Preis-Spanne ausgeben
  MsgBox "Preis: " & preis & Chr(13) & "Preis-Spanne: " & preisSpanne
 
  'Aufräumen
  browser.Quit
  Set browser = Nothing
  Set knotenPreis = Nothing
 Set knotenPreisSpanne = Nothing
End Sub

Viele Grüße,

Zwenn

[Ratko96]

Vielen Dank für die ausführliche Antwort! Werde dies nächstens testen.