Prezados,
achei um comando do mestre JPaulo, que abre um link no Internet explorer, mas preferiria abrir no chrome ou mozilla, como será a modificação do código para este fim?
achei um comando do mestre JPaulo, que abre um link no Internet explorer, mas preferiria abrir no chrome ou mozilla, como será a modificação do código para este fim?
GratoJPaulo escreveu:Private Sub irgoogle_Click()
'By JPaulo@2010 Janeiro
On Error Resume Next
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
apiShowWindow IE.hWnd, SW_MAXIMIZE
IE.Navigate "http://www.google.com.br"
While IE.Busy
DoEvents
Wend
IE.Document.All("objectSearchSend").Click
SendKeys "{ENTER}", True
While IE.Busy
DoEvents
Wend
Set IE = Nothing
End Sub