get webpage title from URL

[S8utt]

Has anyone come across a macro / udf which can return the webpage title ?

I want to put a url in cell a1 for example http://uk.msn.com/?st=1

cell a2 I would like to try to return the webpage title, in this example

Hotmail, News, Sport, Music, Movies, Money, Cars, Shopping, Windows Live from MSN UK

I don;t really want the webpages being opened but if the macro udf had to open them, read the title and then close them that is ok.

Thanks for any help given.

 

[dave3009]

Hi

Perhaps try

Sub GetPageTitle()
Dim a As String
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .Navigate "http://uk.msn.com/?st=1"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        Sheet1.Range("A1").Value = .document.Title
        .Quit
    End With
End Sub

 

[S8utt]

thanks for the swift responce.

i changed it a little to sut what I wanted.

Function GetPageTitle(a As String)

    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = False
        .Navigate a
        Do Until .ReadyState = 4
            DoEvents
        Loop
        GetPageTitle = .document.Title
        .Quit
    End With

    End Function

thanks again

 

[nickrocksall]

Hi ,

Can you help modify it so that i can get the data of table say for table 32 from all webpages in column A and dump the data in column B.

Thanx in Advance