VBA Web Extraction Issue

[JokelesComedian]

This is the code that google found for me. The web site I want to get data from has frames. You have to click certin buttons on the site to get to that page. Is there a way to do this? Here is the VBA I am working with.

Sub Test()
Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://www.aarp.org/" ' should work for any URL
Do Until .ReadyState = 4: DoEvents: Loop

x = .document.body.innertext
x = Replace(x, Chr(10), Chr(13))
x = Split(x, Chr(13))
Range("A1").Resize(UBound(x)) = Application.Transpose(x)

.Quit
End With

End Sub

This pulls info from the AARP site but the site I need to pull from at work has frames.

JokelesComedian
Excel 2010
IE 7

 

[eblake]

Try this to see if you can get directly to the page in the frame...

1. Open the site in your browser
2. Navigate to the page that has the frame you want
3. Click View in the menu bar (Don't right click view, you just get the frame source)
4. You should see the main page with the frame pages listed
5. Copy the URL from the frame you want and append it to the url of the page (might take a little fiddling to get it to the right place)

If this gives the results you want, then use that URL in your .Navigate

 

[JokelesComedian]

Thank you eblake for your fast response, but the only View I see is View Source. When I look at the Source, I see frameset then some stuff after that. Is that what I am supposed to copy? I dont think I am explaining this correctly.

 

[eblake]

Yes, you should see something like:

<frame name="fname" scrolling="no" noresize target="contents" src="page1.htm">
<frame name="contents" target="main" src="page2.htm" scrolling="auto">
<frame name="main" src="page3.htm" target="_self" scrolling="auto">

You need to figure out which one of those has the page you want, then add the src to the url of the page, that "should" get you directly to the page.