Linking to IE

[Pablo]

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

"Pablo" <[email protected]> wrote in message
news:[email protected]...
>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]

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

Sharad

"Sharad Naik" <[email protected]> wrote in message
news:%[email protected]...
> 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
>
> "Pablo" <[email protected]> wrote in message
> news:[email protected]...
>>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,
>>
>
>

[Pablo]

Sharad,

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

"Sharad Naik" wrote:

> For got mention that first you need to add reference to
> "Microsoft Internet Controls" libraray.
>
> Sharad
>
> "Sharad Naik" <[email protected]> wrote in message
> news:%[email protected]...
> > 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
> >
> > "Pablo" <[email protected]> wrote in message
> > news:[email protected]...
> >>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,
> >>
> >
> >
>
>
>

[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