Thema Datum  Von Nutzer Rating
Antwort
Rot HTML Quelltext in Zelle Ausgeben
29.07.2016 12:11:57 Johannes
NotSolved

Ansicht des Beitrags:
Von:
Johannes
Datum:
29.07.2016 12:11:57
Views:
1189
Rating: Antwort:
  Ja
Thema:
HTML Quelltext in Zelle Ausgeben

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

 


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Rot HTML Quelltext in Zelle Ausgeben
29.07.2016 12:11:57 Johannes
NotSolved