Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Werte aus dem WEB in Tabelle einfügen
#1
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


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#2
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:

   
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
[-] Folgende(r) 1 Nutzer sagt Danke an WillWissen für diesen Beitrag:
  • Ratko96
Antworten Top
#3
@WW

Ublock Origin ?
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#4
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.
Antworten Top
#5
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
[-] Folgende(r) 1 Nutzer sagt Danke an Zwenn für diesen Beitrag:
  • Ratko96
Antworten Top
#6
Vielen Dank für die ausführliche Antwort! Werde dies nächstens testen.
 Wink
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste