Hi,
Here is the challenge.
In the past, elements were more or less fixed and was able to use my very well known method QueryTables under Workbooks.open
This website below has a "div", called "div.sidemeta" wihick contains the information I want to grab.
http://www.lynda.com/Web-Interactiv...ls page:1 s:relevance sa:true producttypeid:2
I have tried a different alternative:
Sub Test()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate "http://www.webiste.com"
IE.Visible = True
'Wait for the page to finish loading
Do While IE.Busy Or IE.ReadyState <> 4
DoEvents
Loop
'Get data
Set IEdoc = IE.document
Debug.Print IEdoc.body.innerhtml
IEdoc.Close
IE.Quit
End test
The data I get under "IEdoc.body.innerhtml" does not show that particular DIV.
I have tried using getElementById,getNamedItem and getElementByName without any luck.
Anybody knows how to this?
Thanks in advance.
Here is the challenge.
In the past, elements were more or less fixed and was able to use my very well known method QueryTables under Workbooks.open
This website below has a "div", called "div.sidemeta" wihick contains the information I want to grab.
http://www.lynda.com/Web-Interactiv...ls page:1 s:relevance sa:true producttypeid:2
I have tried a different alternative:
Sub Test()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate "http://www.webiste.com"
IE.Visible = True
'Wait for the page to finish loading
Do While IE.Busy Or IE.ReadyState <> 4
DoEvents
Loop
'Get data
Set IEdoc = IE.document
Debug.Print IEdoc.body.innerhtml
IEdoc.Close
IE.Quit
End test
The data I get under "IEdoc.body.innerhtml" does not show that particular DIV.
I have tried using getElementById,getNamedItem and getElementByName without any luck.
Anybody knows how to this?
Thanks in advance.