Solved

Using Firefox in VBA Excel

Posted on 2013-01-30
4
723 Views
Last Modified: 2013-09-25
Good Morning,

I'm trying to have a task automated using IE8 and Excel. But it appears that the only browser that would be available to users is Firefox. So, on the code below, I would like to have IE replaced by firefox. I Would greatly appreciate if I could get help with that. Thank you!
Sub Reporting()
'declaring Variable'
Dim IE As New InternetExplorer
'Dim IE As Object'
Dim IEDoc As HTMLDocument
Dim Input_Username As HTMLInputElement
Dim Input_Password As HTMLInputElement
Dim Input_Button As HTMLInputElement
Dim lien As HTMLLinkElement
Dim Advs As Object
Dim sear As Object
Dim TextA As Object
Dim Elementtab2 As Object
Dim BarName As String

'Loading the page'
IE.navigate "http://www.bmc.com/"

'Affichage de la fenetre IE'
IE.Visible = True

'Wait for the page to load'
wait_Nav IE

BarName = IE.LocationName

If BarName <> "BMC Extranet - Login" Then
GoTo SkipLoging:
Else
End If

'Filling out the log in form'
Set Input_Username = IE.document.all("username")
Input_Username.Value = "xxxxxxxx"

'On pointe et on remplit la zone de texte password'
Set Input_Password = IE.document.all("password")
Input_Password.Value = "xxxxxxxxx"

'Sign in'
Set Elementtab2 = IE.document.getElementsByTagName("INPUT")

For Each tble2 In Elementtab2
    If tble2.Value = "Login" Then
        tble2.Click
        Exit For
    End If
Next tble2

End Sub

Sub wait_Nav(IE As InternetExplorer)
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy
DoEvents
Loop
End Sub

Open in new window

0
Comment
Question by:Paristocrate
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
4 Comments
 
LVL 34

Accepted Solution

by:
Norie earned 500 total points
ID: 38837060
You can't automate FireFox in the same way as you can Internet Explorer.

Are you sure that Internet Explorer won't be available?
0
 

Author Comment

by:Paristocrate
ID: 38849493
Thank you Imnorie
0

Featured Post

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
This article describes a serious pitfall that can happen when deleting shapes using VBA.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

718 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question