Getting data from Website table into excel through vba

Question

I trying to get the information from the website and sucessfully getting this using this code:

Dim IE As New InternetExplorer
IE.Visible = False
IE.navigate "https://www.theconstructionindex.co.uk" & Range("URL_code").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = IE.document
Dim sDD As String
sDD = doc.getElementsByTagName("TD")(1).innerText
Range("b2").Value = sDD
sDD = doc.getElementsByTagName("TD")(3).innerText
Range("b3").Value = sDD
sDD = doc.getElementsByTagName("TD")(5).innerText
Range("b4").Value = sDD
sDD = doc.getElementsByTagName("TD")(7).innerText
Range("b5").Value = sDD
sDD = doc.getElementsByTagName("TD")(9).innerText
Range("b6").Value = sDD
sDD = doc.getElementsByTagName("TD")(11).innerText
Range("b7").Value = sDD

The problem is that each time I hit button and code runs it slows down the computer. I sure that it is memory management issue. Can anyone suggest how to free the RAM used by this code each time it runs?

How many Internet Explorers are opened currently?

Vityata
– Vityata

2018-05-28 12:38:48 +00:00
Commented May 28, 2018 at 12:38 — Vityata
– Vityata, Commented May 28, 2018 at 12:38

Vityata · Accepted Answer · 2018-05-28 12:41:46Z

1

Probably you are not closing the instances of Internet Explorer. They are invisible (IE.Visible = False), thus you do not see them, but they are there and they are eating RAM. This is a possible solution:

Close all your InternetExplorer Instances, by selecting TaskManager > Processes > InternetExplorer > Right Mouse Button > End Task (or restart your PC);
Then close each instance of IE once you stop working with it. Like this:

Sub TestMe()

    Dim ie As New InternetExplorer
    ie.Visible = False
    'do something here
    ie.Quit

End Sub

answered May 28, 2018 at 12:41

Vityata

43.8k10 gold badges64 silver badges110 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

rehanemis Over a year ago

Can I automatically copy all the data from this website as the data is in tables. theconstructionindex.co.uk/planning-leads/16 the page is 16 then 17 then 18 and so on.. any solution that I hit button and all pages data into excel sheet. ?

Collectives™ on Stack Overflow

Getting data from Website table into excel through vba

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related