Check if macro is running or it is frozen

[jaryszek]

Hi Guys,

i am scraping web using IE object and i have about 2000 thousends urls to check.
This is very slow.

How can i check if macro is still working or it has been frozen?
Do you have your methods?

Like adding timestamp to cell ?

Best,
Jacek

[Kaper]

In such cases I often use something like:

Application.StatusBar = "Please be patient, I'm tesyting site ..." &  var_mysitenumber

to display which site is currentlu tested/scrapped/etc.

It is displayed not in a cell but in a status bar (at the bottom of the worksheet below sheets tabs

[jaryszek]

thank you very much!!!

How about perfomance?

Jacek

[jaryszek]

I read a lot about status bar - on my case will work but people often say that it is lowering performance and using do events instead of it.

Do you know how to do this in do events?

Jacek

[Kaper]

You wrote about 2000 sites.
The concept could be not writing to StatusBar after every site, so something like:

Dim t As Double
t = Timer
' your loop starts here
If Timer - t1 > 0.25 Then 'or may be 1 second is enough
  Application.StatusBar = "Please be patient, I'm testing site ..." & i
  t1 = Timer
End If
' end of loop
  Application.StatusBar = ""

The overhead shall not be very large if your scrapping takes long time. And it probably takes time - otherwise you wouldn't ask about

Do Events could be added somewhere to make easier manual breaking of the code execution

[jaryszek]

Thank you very much!

Jacek