Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.05.2020 18:40:06 |
T |
|
|
|
27.05.2020 18:55:01 |
Gast7155 |
|
|
|
27.05.2020 19:00:43 |
T |
|
|
|
27.05.2020 19:05:56 |
Gast88570 |
|
|
|
27.05.2020 19:17:27 |
Gast2666 |
|
|
Informationen von Website in Excel schreiben |
27.05.2020 20:02:55 |
T. |
|
|
|
27.05.2020 22:29:51 |
Gast2666 |
|
|
|
27.05.2020 22:52:03 |
Zwenn |
|
|
|
28.05.2020 07:17:40 |
T. |
|
|
|
28.05.2020 07:35:21 |
T. |
|
|
|
28.05.2020 10:35:43 |
Zwenn |
|
|
|
28.05.2020 10:55:16 |
T. |
|
|
|
28.05.2020 23:48:23 |
Zwenn |
|
|
|
29.05.2020 12:02:29 |
T. |
|
|
|
03.06.2020 11:04:07 |
T. |
|
|
|
03.06.2020 18:40:47 |
T. |
|
|
|
04.06.2020 10:15:34 |
Gast60463 |
|
|
|
04.06.2020 10:17:24 |
Gast97475 |
|
|
|
04.06.2020 10:19:15 |
Gast27513 |
|
|
|
04.06.2020 10:21:06 |
Zwenn |
|
|
Von:
T. |
Datum:
27.05.2020 20:02:55 |
Views:
817 |
Rating:
|
Antwort:
|
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
27.05.2020 18:55:01 |
Gast7155 |
|
|
|
27.05.2020 19:00:43 |
T |
|
|
|
27.05.2020 19:05:56 |
Gast88570 |
|
|
|
27.05.2020 19:17:27 |
Gast2666 |
|
|
Informationen von Website in Excel schreiben |
27.05.2020 20:02:55 |
T. |
|
|
|
27.05.2020 22:29:51 |
Gast2666 |
|
|
|
27.05.2020 22:52:03 |
Zwenn |
|
|
|
28.05.2020 07:17:40 |
T. |
|
|
|
28.05.2020 07:35:21 |
T. |
|
|
|
28.05.2020 10:35:43 |
Zwenn |
|
|
|
28.05.2020 10:55:16 |
T. |
|
|
|
28.05.2020 23:48:23 |
Zwenn |
|
|
|
29.05.2020 12:02:29 |
T. |
|
|
|
03.06.2020 11:04:07 |
T. |
|
|
|
03.06.2020 18:40:47 |
T. |
|
|
|
04.06.2020 10:15:34 |
Gast60463 |
|
|
|
04.06.2020 10:17:24 |
Gast97475 |
|
|
|
04.06.2020 10:19:15 |
Gast27513 |
|
|
|
04.06.2020 10:21:06 |
Zwenn |
|
|