VBA Interagindo com FIREFOX

[rondini]

Olá amigos, vejam se podem me ajudar com essa duvida.

Tenho uma macro que abre uma pagina na internet (IE) coloca a URL e consigo inserir dados como (Login e senha) e clicar no botão confirma tudo pelo vba.

Ai sem mais sem menos decidi usar o Firefox como meu navegador padrão, ou seja não quero mais usar o IE.

Ai vai as pesquisas de como montar um código que fazia para o IE mas para o Mozila Firefox,

Então cheguei nesse que irei postar abaixo é só colocar no modulo e executar, vai funcionar, a única coisa que não consegui, é inserir os dados nos formulários tipo (Login e Senha) por ele, se puderem me ajudar

Ah no IE era usado esse para fazer o insert no formulario;

IE.document.all("username").innerText = "rondini"

IE.document.all("password").innerText = "XXXX"

IE.document.all("btnLogin").Click

Segue o código Firefox

Sub Test_OpenFireFoxNewTab()

OpenInFireFoxNewTab "http://scriptbrasil.com.br/forum/index.php?showforum=15"

End Sub

Sub OpenInFireFoxNewTab(url As String)

Dim pathFireFox As String

pathFireFox = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

If Dir(pathFireFox) = "" Then pathFireFox = "C:\Program Files\Mozilla Firefox\firefox.exe"

If Dir(pathFireFox) = "" Then

MsgBox "FireFox Path Not Found", vbCritical, "Macro Ending"

Exit Sub

End If

Shell """" & pathFireFox & """" & " -new-window " & url, vbHide

'para newtab usar esse -new-tab

End Sub

[benzadeus]

Não é possível controlar o FireFox por VBA dessa forma.

Você pode tentar ler as instruções da página http://www.iol.ie/~locka/mozilla/control.htm

Ela possui as instruções de como usar o FireFox como um controle ActiveX, mas não recomendo já que:

Visual Basic 6

The Mozilla Browser control should be usable from any automation control container. This includes Visual Basic, so follow these steps to add the control to your VB project:

Install the control / or compile it and ensure it is registered.

Right mouse over the VB control bar and select "Components...".

Choose "MozillaControl 1.0 Type Library" from the list of controls

The Mozilla Browser control should now appear in the toolbar for insertion into any application

Once the control is inserted, you should be able to directly call the events, methods and properties it exposes. The latest control source contains an example VB project called VBrowse.

Note: Save your project often! Bugs in the alpha-quality Mozilla will crash your development environment and will wipe out any unsaved work you may have.

[rondini]

Olá realmente é difícil comecei a pesquisar pelo Chrome e cheguei no seguinte código abaixo

Sub chrome()

Dim chromePath As String

Dim endereco As String

chromePath = """C:\Users\IBM_ADMIN\AppData\Local\Google\Chrome\Application\chrome.exe"""

endereco = "http:uol.com.br"

Shell (chromePath & endereco)

End Sub

Pelo Chrome consigo se tiver alguma tela de login e senha, inserir via código e me logar?

não sei se seria algo assim

Document.getElementById("USERNAME").Value = "rondini"

[benzadeus]

O mesmo vale para o Chrome. Não existe um OLE que você pode manipular o Chrome, Opera nem FireFox.

O método getElementById faz parte do objeto Document que é um membro da classe da biblioteca do Internet Explorer, ou seja: só válido para Internet Explorer.