Hallo Zusammen,
ich versuche die in meiner Excel Datei veküpften externen Abfragen und Verbindungen zu aktualisieren und stoße dabei auf ein Problem, welches ich trotz recherche in verschiedenen Foren irgendwie nicht lösen kann.
Die in der Excel Datei enthaltenen Abfragen und Verknüpfungen referenzieren teils auf andere Excel Dateien, teils auf eine Datenbank via ODBC und auf eine Website über die Wechselkurse abgerufen werden.
Mit dem folgenden Code stoße ich auf einen Fehler 9 Index außerhalb des zulässigen Bereichs
'Refresh Data
ActiveWorkbook.RefreshAll
'Application.CalculateUntilAsyncQueriesDone
Do
DoEvents
Loop Until Application.CalculationState = xlDone
Mit diesem Code lassen sich de ODBC Abfragen wiederum nicht aktualisieren. Fehlermeldung Ungültiger Prozeduraufruf oder ungültiges Argument.
Function RefreshDataConnections()
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 Function
Benötige ich unterschiedliche unterschiedliche Vorgehensweisen um den Code zu stoppen bis alle Abfragen/Verbindungen aktualisiert sind?
|