View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
GTVT06 GTVT06 is offline
external usenet poster
 
Posts: 141
Default Opening Excel files with VBA

On Mar 24, 1:43*pm, " wrote:
I am trying to open an excel file online, but I think that it requires
Java programming to do so. I want to go tohttp://www.powertochoose.org/_content/_compare/compare.aspxthen put
in zip code 77028 and then download the excel file on the next page. I
have figured out how to put in the zip code and get to the next page,
but not how to download the excel file (there is a link on the bottom
right of the screen). Here is what I have:

Sub AutomateIE()
* * Dim ie As InternetExplorer
* * Dim MyStr As String

* * Set ie = New InternetExplorer

* * ie.Navigate "http://www.powertochoose.org/_content/_compare/
compare.aspx"
* * ie.Visible = True
* * *'Loop unitl ie page is fully loaded
* * Do Until ie.ReadyState = READYSTATE_COMPLETE
* * Loop

* * ie.Document.getelementbyid("txtZipCode").Value = "77028"

* * ie.Document.getelementbyid("cmdSearchZip").Click
* * Do Until ie.ReadyState = READYSTATE_COMPLETE
* * Loop
* * Application.Wait TimeSerial(Hour(Now()), Minute(Now()),
Second(Now()) + 2)
* * ie.Document.getelementbyid("lnkExportOffers").Clic k
* * Set ie = Nothing
End Sub

on the buttom of your code, change
ie.Document.getelementbyid("lnkExportOffers").Clic k
To
ie.Document.all("lnkExportOffers").Click