vba - 如何使用VBA向Google输入文字并点击搜索

Question

我的最终目标是自动使用 VBA 打开浏览器，输入网站的用户名和密码，然后单击登录以进一步导航到不同的页面并下载文件!

不过，我想从最简单的尝试开始，即进行 Google 搜索!我认为这个想法是相似的，因为两者都需要输入一些东西并点击一些东西。

我在IE -> Tools(Alt+X) -> F12 Developer Tools 中发现可以显示网站的html代码，而且更方便的是，似乎可以选择区域和获取我感兴趣的关键字!这是这些地区的 2 个屏幕截图，the first one is for the search bar ，我找到了 "input name = "q", and the second one is for the search button ，在那里我找到了 "input name = "btnK"。

这是我的代码:

Sub test()

Set IE = CreateObject("InternetExplorer.Application")
my_url = "https://www.google.ca/?gws_rd=ssl"
IE.Visible = True
IE.navigate my_url

'For example, if I want to search "123"
IE.Document.getElementById("q").Value = "123"

'Click the "Search" button
IE.Document.getElementById("btnK").Click


End Sub

它在 IE.Document.getElementById("q").Value = "123" 处返回错误，

Method 'Document' of object 'iwebbrowser2' failed.

不明白哪里出了问题。我对如何使用 VBA 控制浏览器真的很陌生......请帮忙，谢谢大家!

Answer 1

确保您使用正确的等待语法，以便页面已加载。您也不需要循环提交表单。只需直接提交

.forms(0).submit

代码:

Option Explicit
Public Sub test()
    Const MY_URL = "https://www.google.ca/?gws_rd=ssl"
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate MY_URL
        While .Busy Or .readyState < 4: DoEvents: Wend

        With .document
            .getElementById("lst-ib").Value = "123"
            .forms(0).submit
        End With
        'Other code
        '.Quit  '<== Uncomment me later
    End With
End Sub