|
Hi,
also ich habe folgendes Problem:
auf der Seite
http://worldwide.espacenet.com/publicationDetails/biblio?DB=EPODOC&II=5&ND=3&
adjacent=true&locale=en_EP&FT=D&date=20141231&CC=EP&NR=2819317A2&KC=A2
möchte ich den dort angezeigten Link „patentTranslate“
<a id="translateThisLink" class="translateThisLinkImage noPrint" target="_blank" onclick="this.blur();" href="http://translationportal.epo.org/emtp/translate/?ACTION=abst…_EP&NUMBER=2819317&SRCLANG=EN&OPS=ops.epo.org/3.1&TRGLANG=sq">
<img border="0" title="Translate this text into" alt="Translate this text into" src="/5_8_22/images/epo_google_translate_review.gif"></img>
</a>
Mittels VBA automatisch aktivieren, um zu der verlinkten Seite zu gelangen. Das gelingt mir aber leider nicht. Folgendermaßen lautet der Code:
------------------------------------------------------------------------------
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Sub IELoad()
Dim Browser As SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Set Browser = New SHDocVw.InternetExplorer
Browser.Visible = True
Browser.navigate & _ “http://worldwide.espacenet.com/publicationDetails/biblio?DB=EPODOC&II=5&ND=3&
adjacent=true&locale=en_EP&FT=D&date=20141231&CC=EP&NR=2819317A2&KC=A2”
Set HTMLDoc = Browser.Document
Do While Browser.Busy
DoEvents
Loop
HTMLDoc.getElementById("translatethislink").FireEvent ("onclick")
End Sub
-------------------------------------------------------------------------
Klappt leider weder mit :
a) HTMLDoc.getElementById("translatethislink").FireEvent ("onclick")
Noch mit:
b) HTMLDoc.getElementById("translatethislink").click funktioniert nicht
Wäre super, wenn jmd. Helfen könnte!!
|