code that waits for some other code to run

[oliver_penney]

allo

i have some code that calls a button on an xla toolbar i have

the button, after ~10 seconds comes up with a load of data from an external system

so i thought i would do some code that said:-

press the button
wait until now + 30 seconds
save

but NO, that nevers works, it never has any data there, so i thought i'd try:-

press button
do
loop until the cursor<>hourglass
save

but NO, that never works either, it gets stuck in an infinite loop

not sure why they don't work. any ideas anyone?

 

[Zack Barresse]

Hi there,

Can you post your code?

 

[oliver_penney]

sure, i've changed it a bit since to work around it, but it was something like:-

Sub ButtonSave
dim Thispath as string, ThisWB as string

thispath=activeworkbook.path
thiswb=activeworkbook.name

'hit the button on the toolbar
commandbars("Trading System API Tools 4.2").controls("go").execute
'then wait
Application.Wait (Now + TimeValue("0:02:00"))
'then save down datestamped
activeworkbook.saveas "BB Positions " & format(now(),"ddmmyy") & ".xls"
'then save back as the original
activeworkbook.saveas thispath & "\" & thisname

end sub

 

[Zack Barresse]

Have you tried running it with just the commandbars("Trading System API Tools 4.2").controls("go").execute on it's own? I'm under the impression that it will run that code, then continue onto the next line. So if there is no data, it should lie in the fault of the routine on the "go" control.