Estou com dificuldade para montar uma programação em VBA que faça uma pesquisa no google. Não consigo entender a parte do HTML.
A ideia é identificar o internet explorer aberto, ir para a página do google e buscar a palavra "teste" na pesquisa.
Segue código:
Dim ie As SHDocVw.InternetExplorer
Dim objShell As Object
Dim objWindow As Object
Dim objItem As Object
Dim objCollection As Object
Sub teste()
Set objShell = CreateObject("Shell.Application")
Set objWindow = objShell.Windows()
For Each objItem In objWindow
If LCase(objItem.FullName Like "*Internet Explorer*") Then
Set ie = objItem
End If
Next objItem
ie.navigate ("https://www.google.com.br/?gfe_rd=cr&ei=-s-bVf3ZBcf5gASo1oHAAw&gws_rd=ssl")
Do While ie.Busy Or ie.readyState <> 4
DoEvents
Loop '** Wait til page loaded
Set objCollection = ie.document.getElementsByTagName("input")
i = 0
Do While i < objCollection.all.Length
If objCollection.all(i).ID = "q" Then
objCollection.all(i).Value = "teste"
Exit Do
End If
i = i + 1
Loop
End Sub
https://www.google.com.br/search?q={busca}
? O windows vai abrir, automaticamente, a janela do navegador padrão, e uma aba nova se o navegador estiver aberto.