reading html when hyperlink address not hyperlink text diplayed

[Guest]

The following code works only when the value of E16 is the filename plus path. I need E16 to be a hyperlink such that the display value is different from the actual filename plus path; e.g., display = Metadata, filename plus path = C:\My Documents\demo.htm

How would I modify this code to make this work

Thanks

Kevi

Sub Demo(
Dim ie As Objec
Dim nFile As Intege
Set ie = CreateObject("InternetExplorer.Application"
With i
.Visible = Fals
.Silent = Tru
.Navigate Worksheets("Sheet1").Range("E16").Selec
Do Until Not .Bus
DoEvent
Loo
Worksheets("Sheet1").Range("E1") = .Document.DocumentElement.InnerTex
.Qui
End Wit
Set ie = Nothin
End Sub

 

[Dick Kusleika]

Kevin

Create a hyperlink in E16 and use set it to the webpage you want. Use the
Text To Display box to set up how you want it to read in Excel. Then change
your macro like this

..Navigate Worksheets("Sheet1").Range("E16").Hyperlinks(1).Address


--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

The following code works only when the value of E16 is the filename plus

path. I need E16 to be a hyperlink such that the display value is different
from the actual filename plus path; e.g., display = Metadata, filename plus
path = C:\My Documents\demo.html