时间戳

首页 > 解决方案 > VBA 谷歌搜索

excel - VBA 谷歌搜索

问题描述

我正在学习使用 excel VBA 来自动使用我的代码进行谷歌搜索，如下所示。但是，我总是在下面指示的行中遇到“运行时错误 424：需要对象”。我已经将 searchtxt 声明为我的对象，但仍然出现错误。我试图删除 searchtxt 对象声明，但它仍然不起作用。有人可以帮我纠正我的代码错误，以便我可以在 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

标签： excelvba

解决方案

您无需在 Google 页面上填写搜索表单并按提交。您可以使用搜索词进行导航：

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

推荐阅读