Hello,

I try to import the dutch top 40 from internet (https://www.top40.nl/top40/2017/week-14). I got this far (see code below) but the retrieved data i(dd) s the whole list and what I need is to seperatly add postion ,artist and title in an table , for each position an new record. Does anybody have an idea how to realise this?

Dim IE As Object
Dim dd As Variant


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "https://www.top40.nl/top40/2017/week-14"



Do While IE.Busy
DoEvents
Loop


dd = IE.Document.getElementsByClassName("top40")(0).Inn erText



Set IE = Nothing
Set objElement = Nothing
Set objCollection = Nothing