Probleme mit "sendkeys"
23.02.2004 18:43:43
michi
ich habe folgenden Quellcode im Netz gefunden, den ich von Excel aus starte.
Er müsse eigentlich Ebay im Internet-Explorer starten, und nach "test" suchen. Es funktioniert auch alles, außer dass keine "Keys" gesendet werden!?
Fehlermeldung erhalte ich auch keine!
An was könnte das liegen?
Gruß Michi
-------------------------------------------------
Sub test()
Dim ie As Object
Dim login_name
Dim password
searchname = "test"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.MenuBar = 1
.Toolbar = 1
.StatusBar = 1
.Navigate "www.ebay.de"
.Visible = 1
End With
Do While ie.busy
Loop
DoEvents
Call SendKeys(searchname)
DoEvents
Call SendKeys("{enter}")
End Sub
-----------------------------------------------
Anzeige