Refresh Workbook Connections

[Glenn_Suggs]

Hi all... I'm looking for a way to refresh all links in a workbook by looping thru a collection of "connections?" that exist without having to hard code each one. The RefreshAll method works ok but then stops everything if there's an error (bad/missing connection). I want to trap the error if one Refresh fails and then continue to the next one. The user wants the table (connection) name reported in a message box, but then needs the app to continue to the next connection and keep refreshing the data. (They could be Access, ODBC, or any)

Any ideas? Thanks in advance.

Glenn

 

[RoryA]

Sub RefreshConns()
dim wbc as workbookconnection
on error resume next
for each wbc in thisworkbook.connections
wbc.refresh
if err.number <> 0 then
   msgbox wbc.name
   err.clear
end if
next wbc
end sub

 

[Glenn_Suggs]

Sub RefreshConns()
dim wbc as workbookconnection
on error resume next
for each wbc in thisworkbook.connections
wbc.refresh
if err.number <> 0 then
   msgbox wbc.name
   err.clear
end if
next wbc
end sub

Thanks, RoryA... I'm gonna try that.
Glenn

 

[Glenn_Suggs]

Yep. That did the trick. Thanks again.