VBAを使用してGoogle検索にどのように価値を置くことができますか？

Question

これはコードです：

Sub FillinternetForm() 

Dim ie As Object 

Set ie = CreateObject("Internetexplorer.Application") 

ie.Navigate "https://google.com" 

ie.Visible = True 

While ie.Busy 

DoEvents 'wait until IE is done loading page. 

Wend 

ie.Document.all("lst-ib").Value = "Fast Sub" 

ie.Navigate "https://google.com", CLng(2048) 

ie.Document.all("lst-ib").Value = "Fast slow Sub" 

End Sub 

最初のタブ秒のこの

Answer 1

についての値ガイドを記入していない開いたときに、これを試してくださいうまく機能：

Sub FillinternetForm() 

Dim ie As Object 

Set ie = CreateObject("Internetexplorer.Application") 

ie.Navigate "https://google.com" 

ie.Visible = True 

While ie.Busy 

    DoEvents 'wait until IE is done loading page. 

Wend 

ie.Document.getElementById("lst-ib").Value = "Fast Sub" 

ie.Navigate "https://google.com", CLng(2048) 

While ie.Busy 

    DoEvents 'wait until IE is done loading page. 

Wend 

With CreateObject("Shell.Application").Windows 

    Set ie = .Item(.Count - 1) 

End With 

While ie.Busy 

    DoEvents 'wait until IE is done loading page. 

Wend 

ie.Document.getElementById("lst-ib").Value = "Fast slow Sub" 
End Sub