Привет, я понял это и подумал, что напишу, если у кого-нибудь возникнет похожая проблема.
Sub googlesearch()
Set objIE = CreateObject("InternetExplorer.Application")
WebSite = "www.google.com"
With objIE
.Visible = True
.navigate WebSite
Do While .Busy Or .readyState <> 4
DoEvents
Loop
Set Element = .document.getElementsByName("q")
Element.Item(0).Value = "Hello world"
.document.forms(0).submit
'.quit
End With
End Sub
Таким образом, чтобы сделать это успешно, вам нужно знать имена элементов (вы можете сделать это, посмотрев на исходный код или установив надстройку, которая поможет вам, как firebug), вы также можете использовать .getElementsByID ("someIDhere").