vba - 使用 Visual Basic 一次输入一个字母

Question

我想使用 VBA 来运行 Google 搜索。能够一次将一个字母输入到 Google 搜索栏中对我来说很重要。这是我当前的代码：

myie.document.all("q").Value = "cheese"

这将在一个完整的时间间隔内将搜索词“奶酪”加载到搜索栏中。我希望以更自然的人性化方式进行搜索；在搜索栏中输入“c”，然后输入“h”，然后输入“e”等...

任何帮助表示赞赏

Answer 1

这是你正在尝试的吗？

Option Explicit

Private Sub CommandButton1_Click()
    WebBrowser1.Navigate "Google.com"
End Sub

Private Sub CommandButton2_Click()
    Dim strtext As String
    Dim i As Long

    strtext = "cheese"

    For i = 1 To Len(strtext)
        WebBrowser1.Document.all("q").Value = WebBrowser1.Document.all("q").Value & Mid(strtext, i, 1)
        Wait 1
    Next i
End Sub

Private Sub Wait(ByVal nSec As Long)
    nSec = nSec + Timer
    While nSec > Timer
        DoEvents
    Wend
End Sub

如果您对键入时显示的所有结果感到困扰，那么您也可以使用它

Sub Sample()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    '~~> Choose one of the below
    IE.Navigate ("http://www.google.com/#hl=en&q=" & "Cheese") '<~~ US
    IE.Navigate ("http://www.google.co.uk/#hl=en&q=" & "Cheese") '<~~ UK
    IE.Navigate ("http://www.google.co.in/#hl=en&q=" & "Cheese") '<~~ INDIA
End Sub