Vba 使用VisualBasic一次搜索一个字母

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

myie.document.all（“q”）.Value=“cheese”

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

---

非常感谢您的帮助

这就是您要尝试的吗

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

子样本（）
模糊的物体
设置IE=CreateObject（“InternetExplorer.Application”）
可见=真实
“~~>从下面的选项中选择一个
即导航（”http://www.google.com/#hl=en&q=“奶酪”的主要用途是什么？你想做什么？是的，在这里对最终目标做一点澄清将有助于找出最佳解决方案。@Lloyd Banks:我已经删除了
VB.Net
标记，正如你提到的，你想在VBA中完成它。如果你的意思是VB.Net，那么请告诉我们，我们将进行必要的编辑：）代码转到Google并运行以下代码：myie.document.all（“q”）.Value=“cheese”myie.document.all（“btnG”）。单击第一部分在Google搜索栏中键入“cheese”，然后代码的第二部分单击“搜索”按钮。“奶酪”目前作为一个完整的词一次插入搜索栏。我希望“奶酪”的每个字母都能一次一个插入搜索栏