vba - Visual Basic を使用して一度に 1 文字ずつ Google 検索に入力する

Question

VBA を使用して Google 検索を実行したいと考えています。Google 検索バーに一度に 1 文字ずつ検索語を入力できることは、私にとって重要です。これは私の現在のコードです:

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

これにより、検索語「チーズ」が 1 回の間隔で検索バーに読み込まれます。より自然な人間の方法で検索が行われることを望みます。「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