Pulling HTML Header Data From IMDB

[BrianExcel]

Good morning folks,

Right now I am using the following code that opens an Internet Explorer Browser window and navigates to a specific title on IMDB using the movie code (such as "tt0118531" for the movie "One Eight Seven").

Public Sub NavigateToURL(ByVal argURL As String)

  Const READYSTATE_COMPLETE As Integer = 4


  Dim objIE As Object
  
  Set objIE = CreateObject("InternetExplorer.Application")


  With objIE
    .Visible = True
    .Silent = True
    .Navigate argURL
    Do Until .ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop
  End With


  'objIE.Quit
  Set objIE = Nothing
0
End Sub

This code works fine - but now I need to add a couple more steps.

1. I need to pull the title "One Eight Seven" from the HTML of the IMDB page. I have already located it in the HTML code, shown below:

(open code tag "title")One Eight Seven (1997) - IMDb(closing code tag "/title")

I need to know how to pull that title into column B - column A contains the movie code I referenced above.

2. The next step, is there is an image on that page of the movie cover box. I want to save that image to a folder of my choosing, and name the file as the title that we pulled in step 1.

I was unable to find where the specific image code is, so I am hoping someone can help me with that. Any thoughts from anyone?

 

[Kyle123]

Ok, your first part is:

Public Function GetMovieTitle(imdbTag As String) As String


With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "GET", "http://www.imdb.com/title/" & imdbTag, False
    .send
    GetMovieTitle = Split(Split(.responsetext, "<title>")(1), "</")(0)
End With


End Function

This can be used as a worksheet function:

=GetMovieTitle(A1)

Copied down, note it only needs the imdb ref, so if it's the full url you've got you'll need to adapt.

I'll have a look at the image when I get chance

 

[Kyle123]

Ok I think I broke that post, this forum really doesn't like html, you'll need to remove the # signs from the title tags:

Function GetMovieTitle(imdbTag As String) As String

With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "GET", "http://www.imdb.com/title/" & imdbTag, False
    .send
    GetMovieTitle = Split(Split(.responsetext, "<#title#>")(1), "</")(0)
End With


End Function

Used as a worksheet function

=getMovieTitle(A1) copied down.

I'll have a look at the pic when I get chance