Hi leute,
'Description Upload
MsgBox "Loading Translation"
HTMLDoc.getElementById("languageselector").Options(5).Selected = True
Do While Browser.Busy
DoEvents
Loop
HTMLDoc.getElementById("translatethislink").Click
Do While Browser.Busy
DoEvents
Loop
ich verusuche über DOM auf ein "select" steuerelement auf einer Hompage zuzugreifen und dann durch betätigung des Links (clicken) auf
die entsprechende Aktion (Übersetzung) auszulösen - so wie im Falle der manuellen Navigation auf der Seite.
Die Auswahl findet noch statt - Leider tut sich bei "HTMLDoc.getElementById("translatethislink").Click" anders als wenn ich den link in der Laufzeit "manuell" anclicke, nix.
Wäre Super wenn einer der Programmier-Experten aushelfen könnte !
Hier der ganze Code:
Sub LoadEspaceNetApplicant(Applicants, Inventors, Abstract, Claims, i, currentdoc)
Dim Browser As SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Set Browser = New SHDocVw.InternetExplorer
Browser.Visible = True
'Espacenet Homepage
Browser.navigate "http://worldwide.espacenet.com/?locale=de_EP" ' navigate to page
'On Error Resume Next
Do While Browser.Busy
DoEvents
Loop
NumberDoc = 1
Set HTMLDoc = Browser.Document ' load the DOM object
Do While Browser.Busy
DoEvents
Loop
Dim Elem As Variant
MsgBox "Load Document!"
With HTMLDoc
.getElementById("cqlEditBox").Value = "WO2014140131"
.getElementById("submit").Click
Do While Browser.Busy
DoEvents
Loop
Do While Browser.Busy
DoEvents
Loop
MsgBox "Loading Document ... "
.getElementById("Publicationid1").Click
End With
Do While Browser.Busy
DoEvents
Loop
'Description Upload
MsgBox "Loading Translation"
HTMLDoc.getElementById("languageselector").Options(5).Selected = True
Do While Browser.Busy
DoEvents
Loop
HTMLDoc.getElementById("translatethislink").Click
Do While Browser.Busy
DoEvents
Loop
Do While Browser.Busy
DoEvents
Loop
'Browser.Quit
'Set HTMLDoc = Nothing
'Set Browser = Nothing
End Sub
|