Guten Tag,
mit folgendem VBA Code ziehe ich mir gerade den HTML Quellcode von Boardex.
Leider funktioniert er nur auf der Startseite.
Sobald ich von einem Profil dort (für das ich eingeloggt sein muss und bin) den HTML Code haben will klappt es nicht. es wird zwar die Seite geöffnet, ich bin eingeloggt und habe Zugriff auf das Profil, aber der Quelltext erscheint nicht in meiner Tabelle, auf der Startseite funktioniert er jedoch perfekt.
also mit dem Link in Zelle 1,2 geht es perfekt: boardex.com
mit diesem nicht: https://www.boardex.com/director/profile/default.aspx?menuCat=2&pCategory=1&dir_id=485658 (das ist der link zu einem profil)
Kann mir da jemand weiterhelfen?
Sub hallo()
Dim WebBrowser1 As Object
Dim i As Integer, AktValue As String
Set WebBrowser1 = CreateObject("InternetExplorer.Application")
WebBrowser1.Visible = True ' zum testen anzeigen
WebBrowser1.Navigate Worksheets("Tabelle1").Cells(1, 2)
While WebBrowser1.ReadyState <> 4
'Warten, bis Seite geladen ist
DoEvents
Wend
strVersuch = WebBrowser1.Document.All(0).outerHTML
Worksheets("Tabelle1").Cells(1, 1) = strVersuch
'Debug.Print strVersuch
End Sub
|