Thema Datum  Von Nutzer Rating
Antwort
14.11.2016 15:46:26 Luca
NotSolved
15.11.2016 09:37:33 Gast55110
NotSolved
15.11.2016 10:02:00 Luca
NotSolved
15.11.2016 11:28:30 Gast56928
NotSolved
15.11.2016 11:35:17 Luca
NotSolved
15.11.2016 12:26:19 Mario
NotSolved
15.11.2016 13:09:12 Mario
NotSolved
15.11.2016 13:13:30 Luca
NotSolved
15.11.2016 13:20:46 Gast40537
NotSolved
Blau Link auf Webseite mit VBA klicken
 15.11.2016 13:22:27 Gast48681
*****
Solved
15.11.2016 13:24:46 Mario
NotSolved
15.11.2016 13:39:51 Luca
NotSolved
15.11.2016 13:52:30 Gast94849
NotSolved

Ansicht des Beitrags:
Von:
Gast48681		 Datum:
15.11.2016 13:22:27		 Views:
686		 Rating:
     
Antwort:
 Nein
Thema:
Link auf Webseite mit VBA klicken

Ok dann schicke ich dir mal den Code: Füge alles in ein neues Code-Modul ein. Auf der Tabelle füge ein Formular-Button ein, wo du das Makro "Seite_Aufrufen" zuweist. Und Hier der Code:


Sub Seite_Aufrufen()
If ActiveSheet.Range("A1") = "" Then Exit Sub

Call Test_Seite(ActiveSheet.Range("A1").Text)

End Sub

Private Sub Test_Seite(ByVal strSearch As String)

Dim appIE As Object, strTemp As String, varTemp As Variant
Dim ele As Object, objEle As Object, k As Integer

    
    Set appIE = CreateObject("InternetExplorer.Application")
    
    appIE.navigate "http://listings.findthecompany.com/?launch_filters=%5B%7B%22field%22%3A%22company_name%22%2C%22operator%22%3A%22LIKE%22%2C%22value%22%3A%22" & Range("A1").Value & "%22%7D%5D"

    appIE.Visible = False
    
    
    Do: Loop Until appIE.Busy = False
    Do: Loop Until appIE.Busy = False
    
    With appIE.Document
    
    Set objFound = .getelementsbyclassname("srp-listing-title")
    
    Dim i As Integer
    
        For Each ele In objFound
            ActiveSheet.Cells(1, 1) = ele.innertext
            ele.Click
            Exit For
        Next ele
     
    Set objFound = Nothing
    
    Do: Loop Until appIE.Busy = False
    Do: Loop Until appIE.Busy = False
    
    Application.Wait (Now() + TimeSerial(0, 0, 2))
    
    Set objFound = .getelementsbyclassname("narrative-component narrative-content")
    i = 0
        For Each ele In objFound
            i = i + 1
            ActiveSheet.Cells(2 + i, 1) = ele.innertext
        Next ele
     
End With
    
    appIE.Quit
        
    Set objFound = Nothing
    
    Set appIE = Nothing
    

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
14.11.2016 15:46:26 Luca
NotSolved
15.11.2016 09:37:33 Gast55110
NotSolved
15.11.2016 10:02:00 Luca
NotSolved
15.11.2016 11:28:30 Gast56928
NotSolved
15.11.2016 11:35:17 Luca
NotSolved
15.11.2016 12:26:19 Mario
NotSolved
15.11.2016 13:09:12 Mario
NotSolved
15.11.2016 13:13:30 Luca
NotSolved
15.11.2016 13:20:46 Gast40537
NotSolved
Blau Link auf Webseite mit VBA klicken
 15.11.2016 13:22:27 Gast48681
*****
Solved
15.11.2016 13:24:46 Mario
NotSolved
15.11.2016 13:39:51 Luca
NotSolved
15.11.2016 13:52:30 Gast94849
NotSolved