Also:
Folgende VBA Word Makro läd den Internet Explorer, navgiert zu der angegebenen Seite, macht eine entsprechende Eingabe in das Suchfeld, und clickt dann auf den Button.
Der Internet Explorer navigiert dann auch auf die entsprechende Seite. Mein AppIE Objekt wir allerdings nicht aktualisiert, wie die Msgbox zeigt die immer noch auf ursprüngliche Site "http://worldwide.espacenet.com/?locale=de_EP" referiert.
Wie bekomme ich hin, dass auch mein AppIE Objekt auf die neue Adresse referenziert?
Ich hab so einiges mit Trial and Error versucht, bekomme es aber nicht gebacken.
Ich hoffe jemand kann mir helfen! Vielen Dank schonmal im Voraus
Gruß
Public Sub Search_Espacenet()
Dim appIE As Object
Const READYSTATE_COMPLETE = 4
'Dim Str_RegisterText As String
'Dim SearchMK_Obj As Object
Set appIE = CreateObject("InternetExplorer.Application")
appIE.Navigate2 "http://worldwide.espacenet.com/?locale=de_EP"
'das Dokument benötigt etwas Zeit zum Laden
Do Until appIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
appIE.Visible = True
appIE.Document.forms(0).elements(4).Value = UserForm1.TextBox1.Value
appIE.Document.forms(0).elements(5).Click
'das Dokument benötigt etwas Zeit zum Laden
Do Until appIE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
MsgBox (appIE.locationURL)
'Str_RegisterText = appIE.Document.all(0).outerhtml
'Selection.TypeText Text:=Str_RegisterText
End Sub
|