über VBA input tag mit onclick in shtml aktivieren
30.12.2014 13:15:09
Robert
ich bin sitze schon seit mehreren Tagen an folgender Aufgabe und komme
einfach nicht weiter. Ich hoffe jemand kann mir dabei helfen.
Aufgabe:
finde auf einer internetseite (.shtml) einen bestimmten link und clicke darauf.
Es handelt sich dabei um einen input tag der ein java script aktiviert.
Der Input Tag sieht im Quelltext der Seite so aus:
(erstes "kleiner" hab ich weggelassen)
input type="submit" name="baction" value="verwalten" onclick="return selectAuftragId('7390628')">
Suchkriterium ist die 7-stellige Zahl am Ende.
Da es viele dieser tags auf der Seite gibt war mein Ansatz alle input-tags aus der
Seite heraus zu lesen und dann mit der mid und Instr Methode nach der richtigen AuftragsId suchen.
Folgendes Makro, welches mir als erstes mal alle input-tags auflisten sollte, zeigt mir
jedoch nur eine Auflistung mit:
[object]
[object]
[object]
...
hier kann ich leider nicht nach der Nummer suchen.
Ich hoffe jemand weis einen Rat.
Vielen Dank schon mal.
Sub search_onclick()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
url_name = ("http://meineSeite.shtml")
IE.navigate (url_name)
Do
DoEvents
Loop Until IE.Readystate = 4
Set AllHyperLinks = IE.document.getElementsByTagName("A")
Sheets(3).ListBox1.Clear
For Each onclick_link In AllHyperLinks
'If Mid(onclick_link, 87, 7) = "7390628" Then 'Das wäre die Abfrage nach der Id-Nr.
'onclick_link.Click
'Exit Sub
'End If
Sheets(3).ListBox1.AddItem (onclick_link)
Next
End Sub
Anzeige