Web Query No Yellow Arrow

[RJD87]

Hello,

I'm trying to pull small table from a website using a web query, but am unable to select the table I need and pulling the entire page keeps giving me an error. Is there a way around this to automate the data pull?

Here is the website. http://www.federatedinvestors.com/FII/mutualfunds/details/portfolioCharacteristics.do?fundshareid=185&basketid=328

I would like to select only the monthly portfolio profile table.

Thanks!

 

[crewaustin66]

I can see the page in Chrome but cannot seem to load the page in Excel Query either. I'm not sure why it would take so long. The query needs to complete before you can write any VBA to pull out the section you need. Sorry I don't have any useful advice at this time.

 

[crewaustin66]

I guess if I were doing it I would write a macro based on the following to use the internet object to pull the HTML. Then I would write code to parse the data and find the required tag section, pull that, and parse that for my data. It's going to be rough any way you cut it.

Private Sub btnGetData_Click()
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = 0

URL = "http://www.eoddata.com/stockquote/NASDAQ/AAPL.htm"
ie.Navigate URL

State = 0
Do Until State = 4
    DoEvents
    State = ie.ReadyState
Loop

TextBox1 = ie.Document.Body.innerHTML
End Sub

 

[RJD87]

Nothing happens when I run this macro. I replaced the web address with the one I need. Is there something else I'm missing?
Thanks

 

[crewaustin66]

You need to create a form with a TextBox1 field on it. Stick that code under a button and fire up the form. Try any URL you like.

TextBox1 = ie.Document.Body.innerHTML   ' All HTML output to this form field