Hallo,
also bei mir hängt er sich dein Code schon früher auf und zwar bei der Suche.
Der Text "WO2014140131" wird noch ein in die Textbox eingetragen, aber
der Such-Button wird nicht angesprochen.
Was auch kein Wunder ist, denn wenn ich mir den Quell-Code der 1. Seite anschaue, hat der Such-Button keine ID.
Mit getElementById finde ich den Button also nicht, sondern ich muss über den Namen gehen.
Ich bin in HTML-Sachen absolut kein Experte, aber so habe ich zumindest die 1. Hürde geschafft.
Dim Elem As Variant
MsgBox "Load Document!"
With HTMLDoc
.getElementById("cqlEditBox").Value = "WO2014140131"
Dim x As Object
Set x = .getElementsByName("Submit") '.Click
x.Item(0).Click
Ich habe fürher mal ab un an mit HTML experimentiert, das Problem ist (mittlerweile) meine ich, das oft für jeden Browser, jede Version des Browsers
eine andere, oder zumindest angepasste Seite angezeigt wird.
Zumindest interpretiere ich das so, denn wie gesagt, hat bei mir der Suchbutton keine ID, bei dir hat er wohl eine, denn sonst wärst du nicht so weit gekommen.
|