VBA HTML/Java Inhalt der Website kopieren
17.02.2019 10:45:52
Christoph
hoffe ihr könnt mir helfen.
Ich habe ein Makro, das erst den Hyperlink in einer Zelle aufruft und anschließend ein Class Element aus der Seite zieht.
Mein Problem ist, dass ich so nicht den kompletten Inhalt erhalte, sondern irgendwann der Text abgehackt ist. Meine Vermutung war, dass die Seite über Javascript läuft und erst den Inhalt laden muss, daher die Zeile in dem Code, um nach unten zu Scrollen. Allerdings erhalte ich trotzdem nur die ersten 3/4 des Inhalts.
Hier der Code:
Public Sub test()
Dim Zelle As Range
Dim objIE As Object
Dim Ding
Set objIE = CreateObject("Internetexplorer.Application")
With objIE
On Error Resume Next
.Visible = True
For Each Zelle In Range("A2:A5")
.navigate2 Zelle.Text
.document.parentWindow.Scroll 0&, 3000&
Do While .Busy
Do Until objIE.ReadyState = 4
DoEvents
Loop
Loop
Sleep 2000
.document.parentWindow.Scroll 0&, 2000&
On Error Resume Next
For Each Ding In objIE.document.all
If Ding.getAttribute("class") = "leftInnerProfilFirst" Then
Zelle.Offset(0, 1) = Ding.innertext
End If
Next
Next
.Quit
On Error Resume Next
End With
Set objIE = Nothing
End Sub