Webseite href link anklicken

Sub Artikelberschreibung() On Error GoTo Sprungmarke Dim appIE As Object Dim ticker As String Dim myValue As String Dim i As Integer For i = 1 To 4 ticker = Range("A" & i) Set appIE = CreateObject("internetexplorer.application") appIE.Top = 0 appIE.Left = 0 appIE.Width = 800 appIE.Height = 600 appIE.Visible = True With appIE .Navigate "https://www.stama.ch/catalogsearch/result/?q=" & ticker End With Do While appIE.Busy DoEvents Loop HIER MÜSSTE ICH AUF DETAIL ANZEIGEN KLICKEN Set allRowOfData = appIE.document.getElementsByClassName("std") myValue = allRowOfData(0).innerText Range("B" & i).Value = myValue neubeginnen: appIE.Quit Set appIE = Nothing Next i Exit Sub Sprungmarke: Resume neubeginnen End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Simon,
sinngemäß geht es so. Allerdings wurde bei mir nicht jeder Wert ausgelesen und ich habe das jetzt nicht näher untersucht. Im Code sind einige Erklärungen als Kommentare hinterlegt.
Unbedingt immer und in jedem Modul ganz oben hinschreiben. Das sorgt dafür, dass Du variablen deklarieren musst und schützt Dich vor Schreibfehlern, die Dich sonst bei der Fehlersuche wahnsinnig machen können:

Option Explicit

Hier das ergänzte Makro:
(Die Zeilenumbrüche mit den Unterstrichen sind von der Forensoftware eingefügt worden. Die musst Du entfernen)


Sub Artikelberschreibung()
On Error GoTo Sprungmarke
Dim appIE As Object
Dim nodeButton As Object
Dim allRowOfData As Object
Dim ticker As String
Dim myValue As String
Dim i As Integer
For i = 1 To 4
ticker = Range("A" & i)
Set appIE = CreateObject("internetexplorer.application")
appIE.Top = 0
appIE.Left = 0
appIE.Width = 800
appIE.Height = 600
appIE.Visible = True
With appIE
.Navigate "https://www.stama.ch/catalogsearch/result/?q=" & ticker
End With
Do While appIE.Busy: DoEvents: Loop
'Mit getElementsByClassName() wird eine NodeCollection erzeugt. Eine Collection kann keine
'bis beliebig viele Elemente enthalten. In diesem Fall werden HTML-Elemente in der
'Collection abgelegt, die alle dem Kriterium unterliegen die gleiche CSS-Klasse zugewiesen
'bekommen zu haben
'Wichtig: Bei einem Element handelt sich dabei nicht zwingend um einen einzigen HTML-Tag,
'sondern in der Regel um HTML-Strukturen
Set nodeButton = appIE.document.getElementsByClassName("btn btn-default bottom-left col-xs- _
12 ")
'Die einzelnen Element einer NodeCollection sind mit Indizes durchnuimmeriert. Wie bei  _
Arrays
'Die Indizierung beginnt immer bei 0 (Null). Will man also auf das erste Element zugreifen,
'schreibt man den Namen der NodeCollection gefolgt vom gewünschten Index in runden Klammern
'In diesem Fall ist unser Element der Link und dieser hat natürlich die Möglichkeit
'angeklickt zu werden
nodeButton(0).Click
'Um der aufgerufenen Seite hinter dem Link Zeit zu geben geladen zu werden, braucht man an
'dieser Stelle eine manuelle Pause. Ich habe hier 3 Sekunden gewählt
Application.Wait (Now + TimeSerial(0, 0, 3))
Set allRowOfData = appIE.document.getElementsByClassName("std")
myValue = allRowOfData(0).innerText
Range("B" & i).Value = myValue
neubeginnen:
appIE.Quit
Set appIE = Nothing
Next i
Exit Sub
Sprungmarke:
Resume neubeginnen
End Sub

Viele Grüße,
Zwenn

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread