I had a similar question last week and wasn't sure if you were the one
requesting the hyperlink. I reviewed your posting fromn last week and saw
y9our were already using an IE explorer application. the Hyperlinks are
found in the property href.
Here is a macro that I wrote a while back that gets hyperlinks from a webpage
Sub Getchemicals2()
Found = False
For Each sht In Sheets
If sht.Name = "Chemicals" Then
Found = True
Exit For
End If
Next sht
If Found = False Then
Set ChemicalSht = Sheets.Add(after:=Sheets(Sheets.Count))
ChemicalSht.Name = "Chemicals"
Else
Set ChemicalSht = Sheets("Chemicals")
ChemicalSht.Cells.ClearContents
End If
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
URLFolder = _
"
http://www.ilo.org/public/english/protection/safework/cis/products/icsc/dtasht/"
ChemicalRowCount = 1
For Letters = 0 To 25
AlphaLetter = Chr(Asc("a") + Letters)
URL = URLFolder & AlphaLetter & "_index.htm"
'get web page
ie.Navigate2 URL
Do While ie.readyState <> 4
DoEvents
Loop
Do While ie.busy = True
DoEvents
Loop
H2Found = False
For Each itm In ie.Document.all
If H2Found = False Then
If itm.tagname = "H2" Then
H2Found = True
End If
Else
If itm.tagname = "A" Then
If itm.innertext = "" Then Exit For
'chemical name
ChemicalSht.Range("A" & ChemicalRowCount) = itm.innertext
'webpage
ChemicalSht.Range("B" & ChemicalRowCount) = itm.href
ChemicalRowCount = ChemicalRowCount + 1
End If
End If
Next itm
Next Letters
End Sub
