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