Linking to IE

[Guest]

I put this out there earlier but may not have fully explained myself. I have
a worksheet with a list of potential URLs in column A (A1...). I would like
to take the URL and put it into an IE window, address field, and return the
page name to the worksheet's column B (B1...). I want the macro to work
through the list by itself.

Lonnie and CodeSponge have gotten going but I am going to have troubles.

Thanks,

 

[Sharad Naik]

Try below code:

Sub GetPageName()
Dim IE As InternetExplorer, c
For Each c In Sheet1.Columns(1).SpecialCells(xlCellTypeConstants)
Set IE = New InternetExplorer
'if the url in entered in cells as text then keep
'follwoing code line, and deletete next code line
IE.Navigate c.Value
'Or if the url is entered as a hyperlink then delete
'above code line and keep following code line
IE.Navigate c.Hyperlinks(1).Address
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
c.Offset(0, 1).Value = IE.LocationName
IE.Quit
Set IE = Nothing
Next c
End Sub

Sharad Naik

 

[Sharad Naik]

For got mention that first you need to add reference to
"Microsoft Internet Controls" libraray.

Sharad

 

[Guest]

Sharad,

Thanks for the code. This seems to be exactly what I need.

 

[CodeSponge]

Oops,
I feel bad because you asked to clarify and I was away from my desk for
a few days.
Sorry about that.

Sharad Naik is right you have to reference
C:\WINDOWS\System32\shdocvw.dll
before you can play with the IE interface cleanly