IE App Input Box
17.10.2019 14:27:32
Rolf-Jan
vor ein paar Tagen (14.10.) hatte ich ein Problem mit dem automatischen Input in eine Form auf meiner Homepage gepostet. Leider sind wir hier nicht weitergekommen.
Dieser Weg füllt zwar das Feld. Es scheint aber nur "oberflächlich" zu sein. D.h., die Homepage erkennt den Inhalt bei bestätigen des Buttons nicht an.
IEApp.document.getElementByID("comp-k1rzlhr8input").Value = "Test"
Ich möchte daher Copy/Paste (ohne Send Keys) versuchen. Leider klappt das Einfügen nicht.
Sub Webcrawler()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.navigate "www.price-robot.de"
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.document.ReadyState = "complete"
Range("A1").Copy
IEApp.document.getElementByID("comp-k1rzlhr8input").Select
' Beim Einfügen klappts leider nicht.
IEApp.Paste Destination:=IEApp.document.getElementByID("comp-k1rzlhr8input").Value
IEApp.document.getElementByID("comp-k1rzv2a6link").Click
MsgBox ("Ende")
End Sub
Beste Grüße
Rolf-Jan