如何在下一个选项卡上使用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