Thema Datum  Von Nutzer Rating
Antwort
27.05.2020 18:40:06 T
NotSolved
27.05.2020 18:55:01 Gast7155
NotSolved
27.05.2020 19:00:43 T
NotSolved
27.05.2020 19:05:56 Gast88570
NotSolved
27.05.2020 19:17:27 Gast2666
NotSolved
Blau Informationen von Website in Excel schreiben
27.05.2020 20:02:55 T.
NotSolved
27.05.2020 22:29:51 Gast2666
NotSolved
27.05.2020 22:52:03 Zwenn
*****
NotSolved
28.05.2020 07:17:40 T.
NotSolved
28.05.2020 07:35:21 T.
NotSolved
28.05.2020 10:35:43 Zwenn
NotSolved
28.05.2020 10:55:16 T.
NotSolved
28.05.2020 23:48:23 Zwenn
*****
NotSolved
29.05.2020 12:02:29 T.
NotSolved
03.06.2020 11:04:07 T.
NotSolved
03.06.2020 18:40:47 T.
NotSolved
04.06.2020 10:15:34 Gast60463
NotSolved
04.06.2020 10:17:24 Gast97475
NotSolved
04.06.2020 10:19:15 Gast27513
NotSolved
04.06.2020 10:21:06 Zwenn
NotSolved

Ansicht des Beitrags:
Von:
T.
Datum:
27.05.2020 20:02:55
Views:
817
Rating: Antwort:
  Ja
Thema:
Informationen von Website in Excel schreiben

Hi,

anbei mein Code der mich zur gewünschten Seite navigiert.

Option Explicit

Sub Ausleitung()

    Dim IE As New SHDocVw.InternetExplorer
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLInput As MSHTML.IHTMLElement
    
    Dim HTMLButtons As MSHTML.IHTMLElementCollection        'Buttons
    Dim HTMLButton As MSHTML.IHTMLElement

    Dim HTMLaTags As MSHTML.IHTMLElementCollection        '<a> Tags
    Dim HTMLaTag As MSHTML.IHTMLElement
    
    
    IE.Visible = True
    IE.Navigate "stepstone.de"
    
    Do While IE.ReadyState <> READYSTATE_COMPLETE
    Loop
    
    Set HTMLDoc = IE.Document
    
    
    Set HTMLInput = HTMLDoc.getElementById("ke")        'Name des Suchfeldes = "ke" (=einzigartig)

        HTMLInput.Value = "ABB AG"                      'Beispiel Unternehmen
    
    
    Set HTMLButtons = HTMLDoc.getElementsByTagName("button")
    
    For Each HTMLButton In HTMLButtons
    
        If HTMLButton.innerText = "Jobs finden" Then
            HTMLButton.Click
            Exit For
        End If
    
    Next HTMLButton
    
'bis hier hin kein Problem ======================================================================================

    Dim x As Long

    x = 0
    
        For
            
            x = x + 1
        
            ActiveSheet.Cells(x, 1) = ???       'Bezeichnung von Website in Worksheet übertragen
            ActiveSheet.Cells(x, 2) = ???       'Dazugehöriger Link von Website in Worksheet übertragen
            
        Next
         
End Sub

 

Meine Idee wäre gewesen nun alle <a> Tags (da hier der Link enthalten ist) in einer Schleife zu durchlaufen um somit die Bezeichnung (auszulesen über "innerText") und den dazugehörgen Link ("href") in die Excel zu schreiben. Problem das ich nur sehe ist, dass es war. auch <a> Tags mit Links gibt, welche nichts mit einer Stellenbezeichnung zu tun hat. 

Vllt. wird mei Problem nun etwas klarer :-) Wie gesagt habe lediglich VBA Kenntnisse innerhalb des Office Pakets und nicht in Kombination mit Websiten (HTML) usw.

Vielen Dank 

T.


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
27.05.2020 18:40:06 T
NotSolved
27.05.2020 18:55:01 Gast7155
NotSolved
27.05.2020 19:00:43 T
NotSolved
27.05.2020 19:05:56 Gast88570
NotSolved
27.05.2020 19:17:27 Gast2666
NotSolved
Blau Informationen von Website in Excel schreiben
27.05.2020 20:02:55 T.
NotSolved
27.05.2020 22:29:51 Gast2666
NotSolved
27.05.2020 22:52:03 Zwenn
*****
NotSolved
28.05.2020 07:17:40 T.
NotSolved
28.05.2020 07:35:21 T.
NotSolved
28.05.2020 10:35:43 Zwenn
NotSolved
28.05.2020 10:55:16 T.
NotSolved
28.05.2020 23:48:23 Zwenn
*****
NotSolved
29.05.2020 12:02:29 T.
NotSolved
03.06.2020 11:04:07 T.
NotSolved
03.06.2020 18:40:47 T.
NotSolved
04.06.2020 10:15:34 Gast60463
NotSolved
04.06.2020 10:17:24 Gast97475
NotSolved
04.06.2020 10:19:15 Gast27513
NotSolved
04.06.2020 10:21:06 Zwenn
NotSolved