R
Ron West
I have a spreadsheet that is coded to get Reuters data using the RtGet
function in a few hundred cells, for example this (where B$7 is the ISIN
required):-
=RtGet("IDN_SELECTFEED", B$7, C$7)
Because Reuters is rather leisurely about returning values and reports that
the retrieval is complete when it isn't, we have to sit at the PC hitting F9
every few seconds until nothing changes for a while. This normally happens
after about 15-20 seconds.
I have tried to replace this manual F9-pressing procedure with a Do...Loop
For i = 1 To 6
If Application.Wait(Now + TimeValue("0:00:03")) Then
Calculate
DoEvents
End If
Next
but the "Calculate" keyword appears to do nothing, and the Reuters cells
retain their previous information - but if I press F9 they update.
So I tried replacing the "Calculate" with things like
SendKeys "{F9}", True
or
ActiveWorkbook.RefreshAll
but neither of these do anything to the Reuters data cells either.
How do I get this cell-data-refresh to work in VBA?
Thanks!
function in a few hundred cells, for example this (where B$7 is the ISIN
required):-
=RtGet("IDN_SELECTFEED", B$7, C$7)
Because Reuters is rather leisurely about returning values and reports that
the retrieval is complete when it isn't, we have to sit at the PC hitting F9
every few seconds until nothing changes for a while. This normally happens
after about 15-20 seconds.
I have tried to replace this manual F9-pressing procedure with a Do...Loop
For i = 1 To 6
If Application.Wait(Now + TimeValue("0:00:03")) Then
Calculate
DoEvents
End If
Next
but the "Calculate" keyword appears to do nothing, and the Reuters cells
retain their previous information - but if I press F9 they update.
So I tried replacing the "Calculate" with things like
SendKeys "{F9}", True
or
ActiveWorkbook.RefreshAll
but neither of these do anything to the Reuters data cells either.
How do I get this cell-data-refresh to work in VBA?
Thanks!