Hi All,
I have a connection which is web query. I want to use macro to refresh the connection. after refresh, I want to process other code.
Would you help to revise me an idea to do that? Thanks.
let say,
Sub test() Connections("ABC").refresh //It is a web query connection <code to wait the connection finish refreshing.> msgbox "finished refreshing" processA End Sub
Last edited by JBeaucaire; 01-07-2015 at 12:09 PM. Reason: Added missing CODE tags. Please read and follow the Forum Rules, link above in the menu bar. Thanks.
Try inserting a line of code:
DoEvents
_________________
Microsoft MVP 2010 - Excel
Visit: Jerry Beaucaire's Excel Files & Macros
If you've been given good help, use theicon below to give reputation feedback, it is appreciated.
Always put your code between code tags. [CODE] your code here [/CODE]
?None of us is as good as all of us? - Ray Kroc
?Actually, I *am* a rocket scientist.? - JB (little ones count!)
Hi Jerry,Originally Posted by JBeaucaire
Try inserting a line of code:
DoEvents
Still not ok.
I run the above code. I get a "ok" message before the connection refresh.Sub test() ActiveWorkbook.Connections("Connection").Refresh DoEvents Application.Wait Now + TimeValue("0:00:01") MsgBox ("OK") End Sub
Then the trick will be to insure the BackGroundQuery=False parameter is set in your actual connection. Can you edit your original connections to set that?
If not, maybe you can adapt something like this:
Sub Refresh_All_Data_Connections() For Each objConnection In ThisWorkbook.Connections 'Get current background-refresh value bBackground = objConnection.OLEDBConnection.BackgroundQuery 'Temporarily disable background-refresh objConnection.OLEDBConnection.BackgroundQuery = False 'Refresh this connection objConnection.Refresh 'Set background-refresh value back to original value objConnection.OLEDBConnection.BackgroundQuery = bBackground Next MsgBox "Finished refreshing all data connections" End Sub
Thank you Jerry. Now is ok.
Then the trick will be to insure the BackGroundQuery=False parameter is set in your actual connection. Can you edit your original connections to set that?
If not, maybe you can adapt something like this:
Sub Refresh_All_Data_Connections() For Each objConnection In ThisWorkbook.Connections 'Get current background-refresh value bBackground = objConnection.OLEDBConnection.BackgroundQuery 'Temporarily disable background-refresh objConnection.OLEDBConnection.BackgroundQuery = False 'Refresh this connection objConnection.Refresh 'Set background-refresh value back to original value objConnection.OLEDBConnection.BackgroundQuery = bBackground Next MsgBox "Finished refreshing all data connections" End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks