Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ClassNameTest()
Dim objIE As Object
Dim objIETag As Object, objIEElement As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "[URL unfurl="true"]http://finance.yahoo.com"[/URL]
While objIE.Busy: Wend
While objIE.readyState <> 4: Wend
'Discover the class without an id
For Each objIETag In objIE.document.all
Debug.Print objIETag.tagName, "id: "; objIETag.ID, "className: "; objIETag.className
Next objIETag
'I've never used this before but it works in Win XP, Office 2k, IE 7
Set objIEElement = objIE.document.getElementById("quoteContainer")
For Each objIETag In objIEElement.all
Debug.Print objIETag.tagName, "id: "; objIETag.ID, "className: "; objIETag.className
Next objIETag
Set objIEElement = Nothing
Set objIETag = Nothing
objIE.Quit
Set objIE = Nothing
End Sub