Chris
I did try working on this but not yet arrived at a situation where I
can store all the targets in a folder. But i have a solution where you
can get url of all the hyperlink targets to the destination. I hope
this helps and if i do get a solution wehre you can store in a folder,
i will let you know... Copy the following code and paste in a new code
module.
Option Explicit
Dim nwSht As Worksheet
Sub hyperlinkInformation()
Dim IE As Object
Dim doc, element
Dim shtName As String
shtName = InputBox("Give a name to the new sheet")
Call Get_New_SHeet(shtName)
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate GetUrl
IE.Visible = True
Do Until IE.busy = False
DoEvents
Loop
Set doc = IE.Document
Dim i As Integer
i = 2
For Each element In doc.all.tags("A")
nwSht.Cells(i, 1) = element.innertext 'prints the text of the
hyperlink
nwSht.Cells(i, 2) = element 'prints the hyperlink itself
'press ctrl-g to see debug window
i = i + 1
Next element
MsgBox "Done"
End Sub
Private Sub Get_New_SHeet(ByVal shtName As String)
Set nwSht = ActiveWorkbook.Sheets.Add
nwSht.Name = shtName
nwSht.Activate
With nwSht
.Cells(1, 1) = "Link text"
.Cells(1, 2) = "Link URL"
.Columns(1).ColumnWidth = 35
.Columns(2).ColumnWidth = 50
End With
nwSht.Activate
End Sub
Private Function GetUrl()
GetUrl = InputBox("Enter the url for the get the hyperlinks " & _
"on that page/doc", "", _
"
http://socko.wordpress.com/site-contents/")
If UCase(Left(GetUrl, 7)) <> "HTTP://" Then
MsgBox "Please enter the url starting with http:// and try again"
Exit Function
GetUrl = ""
End If
End Function
Go to the following url if to download the example file.
http://www.sockofiles.350.com/get=_linktargets=_url.xls
I hope this helps.
- Selva
Fore more info on vba info, visit
http://socko.wordpress.com