Thema Datum  Von Nutzer Rating
Antwort
18.10.2019 12:44:14 Jan-Hendrik
NotSolved
18.10.2019 16:49:20 X-Post
NotSolved
18.10.2019 23:25:55 xlKing
NotSolved
20.10.2019 13:50:39 Zwenn
NotSolved
Rot Gesamten Quelltext Website in Excel einfügen
 20.10.2019 22:40:49 Gast81349
NotSolved

Ansicht des Beitrags:
Von:
Gast81349		 Datum:
20.10.2019 22:40:49		 Views:
1167		 Rating:
     
Antwort:
  Ja
Thema:
Gesamten Quelltext Website in Excel einfügen		 
Option Explicit

Sub extraktor()
  
  With CreateObject("InternetExplorer.Application")
    
    .Visible = False
    
    Debug.Print
    Debug.Print Time$, "rufe Daten ab... ";
    
    .Navigate "https://www.wer-zu-wem.de/firma/steinel-normalien.html"
    
    Dim vnt As Variant
    Dim t As Single
    
    t = Timer
    Do Until Not .Busy And .readyState = 4
      If Timer < t + 10 Then '+X sec
        DoEvents
      Else
        .stop
        vnt = CVErr(XlCVError.xlErrUnknown)
        Exit Do
      End If
    Loop
    
    If IsError(vnt) Then
      Debug.Print "Timeout!"
      .Quit
      Exit Sub
    Else
      Debug.Print "Erfolg!"
    End If
    
    Debug.Print Time$, "suche Information... ";
    
    For Each vnt In .document.getElementsByTagName("span")
      If 0 = StrComp(vnt.outerText, "Umsatzklasse:", vbTextCompare) Then
        vnt = Trim$(vnt.NextSibling.data)
        Exit For
      End If
    Next
    
    If Not IsEmpty(vnt) Then
      
      Debug.Print "Erfolg!"
      Debug.Print Time$, Spc(2); "-> '"; vnt; "'"
      
      Sheets("Dummy").Range("A1").Value = vnt
    Else
      Debug.Print "Fehlschlag!"
    End If
    
    .Quit
    
  End With
  
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
18.10.2019 12:44:14 Jan-Hendrik
NotSolved
18.10.2019 16:49:20 X-Post
NotSolved
18.10.2019 23:25:55 xlKing
NotSolved
20.10.2019 13:50:39 Zwenn
NotSolved
Rot Gesamten Quelltext Website in Excel einfügen
 20.10.2019 22:40:49 Gast81349
NotSolved