bradedi
07-27-2005, 03:53 AM
Good Morning. I have found that searching this website when I get stuck on a problem to be very helpful. However, I have a problem that I can't seem to find an answer to and decided I should post it.
I am working in Excel 2003 and I am trying to pull various stock data from a Free website that is password protected. Below is the code I am using to input the login and password (thanks to some help on this website). My problem arises with a pop up window asking me if I want to continue to a nonsecure website. I have tried various strategies to click yes, but nothing seems to work. Does anyone have any ideas? Can this be done or should I just forget it?
Sub ReutersPassword()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
Dim webbk As Workbook
Dim webrng As Range
Dim webFwdPE As Range
With ie
.navigate "https://secure.reuters.com/login/login.aspx?go=http%3a%2f%2fwww.investor.reuters.com%2fMG.aspx%3fticker%3dGE %26target%3d%252fstocks%252ffinancialinfo%252fratios%252fvaluation&title=Free+membership+is+required+to+view+the+Ratios+report."
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
With .Document.Forms("Form1")
.EmailAddress.Value = "asdf@yahoo.com"
.Password.Value = "asdf"
SendKeys "{ENTER}", True
End With
.Visible = True
End With
End Sub
My ultimate goal is to be able to download specific information on a list of stocks from this website for a project I am working on. I have used Yahoo!Finance, but this site has much more detailed information, which I need for this project.
ANY help would be greatly appreciated. HAVE A GOOD DAY!
I am working in Excel 2003 and I am trying to pull various stock data from a Free website that is password protected. Below is the code I am using to input the login and password (thanks to some help on this website). My problem arises with a pop up window asking me if I want to continue to a nonsecure website. I have tried various strategies to click yes, but nothing seems to work. Does anyone have any ideas? Can this be done or should I just forget it?
Sub ReutersPassword()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
Dim webbk As Workbook
Dim webrng As Range
Dim webFwdPE As Range
With ie
.navigate "https://secure.reuters.com/login/login.aspx?go=http%3a%2f%2fwww.investor.reuters.com%2fMG.aspx%3fticker%3dGE %26target%3d%252fstocks%252ffinancialinfo%252fratios%252fvaluation&title=Free+membership+is+required+to+view+the+Ratios+report."
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
With .Document.Forms("Form1")
.EmailAddress.Value = "asdf@yahoo.com"
.Password.Value = "asdf"
SendKeys "{ENTER}", True
End With
.Visible = True
End With
End Sub
My ultimate goal is to be able to download specific information on a list of stocks from this website for a project I am working on. I have used Yahoo!Finance, but this site has much more detailed information, which I need for this project.
ANY help would be greatly appreciated. HAVE A GOOD DAY!