Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.08.2020 07:14:18 |
Michael |
|
|
|
18.08.2020 08:32:56 |
Mase |
|
|
|
18.08.2020 08:34:09 |
Mase |
|
|
|
18.08.2020 08:52:29 |
Gast14775 |
|
|
|
18.08.2020 09:28:48 |
Mase |
|
|
|
18.08.2020 09:54:24 |
Michael |
|
|
|
18.08.2020 10:10:04 |
Mase |
|
|
|
18.08.2020 10:51:59 |
Michael |
|
|
|
18.08.2020 11:05:02 |
Mase |
|
|
|
18.08.2020 11:26:43 |
Gast18234 |
|
|
|
18.08.2020 16:41:27 |
Mase |
|
|
|
18.08.2020 20:13:26 |
Michael |
|
|
|
19.08.2020 06:41:28 |
Michael |
|
|
Leider nicht |
19.08.2020 09:12:18 |
volti |
|
|
|
19.08.2020 09:51:27 |
Mase |
|
|
Von:
volti |
Datum:
19.08.2020 09:12:18 |
Views:
570 |
Rating:
|
Antwort:
|
Thema:
Leider nicht |
Hallo Michael,
falls Du nicht weiterkommst und ihr in der Firma den IE nutzt, kannst Du es auch nach u.a. Code-Muster versuchen.
Hierbei sollte durch Anschauen des Quellcodes der Site ermittelt werden, ob die gesucheten Elemente eine ID haben. Dann kann man sie einfach abfragen. Aber auch ohne id geht es mit z.B. Klassennamen oder Tags recht einfach an die daten zu kommen. Dazu müsste man allerdings die Seite und deren Aufbau kennen.
Mustercode:
Function GetValueFromWeb()
Dim oIE As Object, sUrl As String, oNode As Object
sUrl = "https://www.herber.de/bbs/user/135642.html" 'Url vorgeben
Set oIE = CreateObject("InternetExplorer.application")
oIE.Navigate sUrl 'Zur Url surfen
oIE.Visible = False
While Not oIE.readyState = 4: DoEvents: Wend 'Warten bis Seite geladen ist
Set oNode = oIE.Document.getElementById("wb-cont") 'Element über ID holen
If Not oNode Is Nothing Then
GetValueFromWeb = oNode.all.tags("span")(0).outerText 'Erster span-Text
Rem GetValueFromWeb=oNode.outertext 'Text des Elements
End If
Rem GetValueFromWeb = oIE.Document.getElementById("MyID").outertext
oIE.Quit 'IE schließen
Set oIE = Nothing
Set oNode = Nothing
End Function
viele Grüße
Karl-Heinz
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.08.2020 07:14:18 |
Michael |
|
|
|
18.08.2020 08:32:56 |
Mase |
|
|
|
18.08.2020 08:34:09 |
Mase |
|
|
|
18.08.2020 08:52:29 |
Gast14775 |
|
|
|
18.08.2020 09:28:48 |
Mase |
|
|
|
18.08.2020 09:54:24 |
Michael |
|
|
|
18.08.2020 10:10:04 |
Mase |
|
|
|
18.08.2020 10:51:59 |
Michael |
|
|
|
18.08.2020 11:05:02 |
Mase |
|
|
|
18.08.2020 11:26:43 |
Gast18234 |
|
|
|
18.08.2020 16:41:27 |
Mase |
|
|
|
18.08.2020 20:13:26 |
Michael |
|
|
|
19.08.2020 06:41:28 |
Michael |
|
|
Leider nicht |
19.08.2020 09:12:18 |
volti |
|
|
|
19.08.2020 09:51:27 |
Mase |
|
|