Parsing HTML title into Excel

[Majawat]

I appologize for my post at http://www.mrexcel.com/forum/showthread.php?t=557472. I accidently used a TITLE html tag in the post... lesson learned! (if I can delete it, I will,

After a quick search through the forums and google, I can't seem to find the answer to this question.

Basically, I'm trying to pull the webpage title from this website http://beeradvocate.com/beer/profile/140. Really all I want is the "Sierra Nevada Brewing Co.", but I'll gladly take the "Sierra Nevada Brewing Co. - Chico, CA - Beers - BeerAdvocate" if it is easier since that is contained in the TITLE tag of the HTML. This string will then be placed in the currently selected cell.

If it helps, I'm already opening an IE object and parsing the table on the page as it is.

Suggestions? Help?

 

[Norie]

Can't you just search for the TITLE element of the HTML document of the page?

You don't say exactly say how you are opening IE etc but this worked for me.

doc.getElementsbytagname("TITLE")(0).InnerText

Where doc was a reference to IE.document.

 

[Majawat]

Can't you just search for the TITLE element of the HTML document of the page?

You don't say exactly say how you are opening IE etc but this worked for me.

doc.getElementsbytagname("TITLE")(0).InnerText

Where doc was a reference to IE.document.

This is the code I'm using to open the IE object:

dim objIE as Object
 
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
    .AddressBar = False
    .StatusBar = False
    .MenuBar = False
    .Toolbar = 0
    .Visible = False
    .Navigate strURL
End With
While objIE.Busy
Wend
While objIE.Document.ReadyState <> "complete"
Wend

I had tried changing your code to this with no such luck:

objIE.getElementsbytagname("TITLE")(0).InnerText

with an error of Object doesn't support this property or method.

And thank you for your quick response!

 

[Norie]

Sorry I created a reference to the document.

Set doc = objIE.document
 
doc.getElementsbytagname("TITLE")(0).InnerText

 

[Scott Huish]

BTW, if you need to post HTML tags in your post, there is a way to show them.

Just use &#xx; tags.

i.e.

&#60;TITLE&#62; = <TITLE>

 

[Majawat]

Norie, thank you for your help, however I still didn't get that code to work. Nor do I understand how VBA objects work quite yet.

However, I did end up getting it to work myself with this piece of code:

dim varTitles, varTitle
...
 
Set varTitles = objIE.document.all.tags("TITLE")
 
For Each varTitle In varTitles
    ActiveSheet.Cells(lngRow, 2) = Trim(Left(varTitle.innertext, Application.WorksheetFunction.Find("-", varTitle.innertext) - 2))
Next varTitle

This not only grabs it, but it also grabs just the part I need.

HOTPEPPER, thank you, I'll keep that in mind in the future!