Hi all,

I am exporting data from web to excel using excel vba.

The table has some hyperlink, If i move cursor on that text, it
displays some text.

How do i capture those details to excel.

& How to save web page to text file using excel vba.

Thanks in advance.

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



"fi.or.jp.de" wrote:

Hi all,

I am exporting data from web to excel using excel vba.

The table has some hyperlink, If i move cursor on that text, it
displays some text.

How do i capture those details to excel.

& How to save web page to text file using excel vba.

Thanks in advance.