Opening Excel files with VBA
On Mar 25, 11:30*am, Andrew Landgraf wrote:
On Mar 24, 2:55*pm, GTVT06 wrote:
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.aspxthenput
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- Hide quoted text -
- Show quoted text -
Thanks for the help.
When I modified the program, Internet Explorer gives a message saying
that it blocked the site from downloading files on my computer. When I
manually tell it to download the file anyway, it just refreshes the
page and nothing downloads.
Is there a way to disable protection/ error messages like this in the
code or for specific websites?
I am using IE7 by the way.- Hide quoted text -
- Show quoted text -
If you set the website as a "Trusted Web Site" in your IE settings you
should be able to bypass this error.
|