Greg

This will get all the links from that particular HTML code.

Private Sub GetAllLinks()
Dim IE As Object
Dim doc As Object
Dim lnks As Object
Dim l
Dim pos
Dim rng As Range

Set rng = Range("A1")
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate "C:\GetLinksFromDivsTest.html"

Do While IE.Busy: DoEvents: Loop
Do While IE.ReadyState < 4: DoEvents: Loop

Set doc = IE.Document

Set lnks = doc.getelementsbytagname("A")

For Each l In lnks

rng = l.innertext
rng.Offset(, 1) = l

Set rng = rng.Offset(1)
Next l

IE.Quit: Set IE = Nothing

End Sub

Similar code could be used to get all the tables, all the divs etc




On Jun 22, 8:30*am, Greg Lovern wrote:
I need to download data from a web site. I'm familiar with how to use
an InternetExplorer object to navigate to the page etc. But how do I
get this data:

The web page source for the table of data I want looks like this:

<table border="0" cellpadding="15" cellspacing="0" width="580"
* * * * <tr
* * * * * * * * <td class="copy"
* * * * * * * * * * * * <div class="mahead"<bItem 1</b -- <a href="http://www.website.com/webpage.html"view page</a</div
* * * * * * * * * * * * <div class="mahead"<bOther Thing</b -- <a href="http://www.website.com/someotherpage.html"view page</a</div
* * * * * * * * * * * * <div class="mahead"<bNew Stuff</b -- <a href="http://www.website.com/yetanotherpage.html"view page</a</div
* * * * * * * * * * * * <br /<br /<br /<br /<br /
* * * * * * * * </td
* * * * </tr
</table

Where my example shows only three items, the real web page has many
more, each as a <div, all in the same <td.

What I need to get is:

[Field 1] * * * * * [Field 2]
Item1 * * * * * * *http://www.website.com/webpage.html
Other Thing * * *http://www.website.com/someotherpage.html
New Stuff * * * *http://www.website.com/yetanotherpage.html

How do I get that data?

BTW, if I use Excel's Get External Data From Web feature, I get this
table:

[Field 1] * * * * * [Field 2]
Item1 * * * * * * * view page
Other Thing * * *view page
New Stuff * * * * view page

With no sign of the urls, which I need.

Thanks for any suggestions.

Greg