VBA Google поиск

Question

Я учусь использовать Excel VBA для автоматизации поиска Google с моими кодами, показанными ниже. Тем не менее, я всегда сталкиваюсь с «ошибкой времени выполнения 424: требуется объект» в строке, указанной ниже. Я уже объявил searchtxt как мой объект, но ошибка все еще произошла. Я попытался удалить объявление объекта searchtxt, но оно все равно не работает. Может кто-нибудь помочь мне исправить мою ошибку кода, чтобы я мог сделать поиск Google в VBA. Спасибо

Sub google_search()
Dim searchtxt As Object, myie As Object

Set myie = CreateObject("internetexplorer.application")
With myie
    .Visible = True
    .Navigate "https:\\www.google.com"
    Do While .Busy
        DoEvents
    Loop
    Do While .readystate <> 4
        DoEvents
    Loop
End With

Set searchtxt = myie.document.getelementbyid("q")  'error occured here
Set searchtxt.Value = "excel vba"
myie.document.forms(0).submit

End Sub

Answer 1

Вам не нужно заполнять форму поиска на странице Google и нажимать кнопку отправки. Вы можете просто перемещаться, используя ваш поисковый запрос:

.Navigate "https://www.google.com/search?q=your search term"