Attendez L'ActiveWorkbook.Finitions rafraîchissantes-VBA

j'ai eu le même problème, cependant DoEvents ne m'a pas aidé car mes connexions de données avaient background-refresh activé. Au lieu de cela, en utilisant Wayne G. Dunn 'S réponse comme un point de départ, j'ai créé la solution suivante, qui fonctionne très bien pour moi;

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

la MsgBox est pour le test seulement et peut être supprimé une fois que vous êtes heureux le code attend.

aussi, je préfère ThisWorkbook à ActiveWorkbook comme je sais qu'il va cibler le classeur où le code réside, en cas de changement de focus. Neuf fois sur dix, cela n'a pas d'importance, mais j'aime à errer sur le côté de la prudence.

EDIT: Juste vu ton edit sur l'utilisation d'un xlConnectionTypeXMLMAP connexion qui n'ont pas de BackgroundQuery option, désolé. Je laisse ce qui précède pour quiconque (comme moi) à la recherche d'un moyen pour rafraîchir les types de connexion Oldb.

avertissement: le code ci-dessous aurait causé quelques accidents! À utiliser avec précaution.

selon cette réponse dans Excel 2010 et au-dessus CalculateUntilAsyncQueriesDone arrête les macros jusqu'à ce que rafraîchissement est fait

ThisWorkbook.RefreshAll

Application.CalculateUntilAsyncQueriesDone

Si @Wayne G. Dunn a donné dans le code. Voici l'endroit où vous ne voulez pas coder. Et décochez pour désactiver le rafraîchissement de l'arrière-plan.

vous devez désactiver" background refresh " pour toutes les requêtes. Si background refresh est activé, Excel fonctionne à l'avance pendant que le refresh se produit et que vous avez des problèmes.

Données > Connexions > Propriétés > désélectionnez l'option activer l'actualisation en arrière-plan

Voici une solution trouvée à http://www.mrexcel.com/forum/excel-questions/510011-fails-activeworkbook-refreshall-backgroundquery-%3Dfalse.html :

ont soit toutes les propriétés de fond de pivotcaches définies à False, ou boucle à travers toutes les clés pivotantes du classeur:

Code:
    For Each pc In ActiveWorkbook.PivotCaches
       pc.BackgroundQuery = False
       pc.Refresh
    Next 

cela laissera toutes les propriétés de backgroundquery de pivotcaches comme fausses. Vous pouvez conserver les réglages de chacun avec:

Code:

For Each pc In ActiveWorkbook.PivotCaches
  originalBGStatus = pc.BackgroundQuery
  pc.BackgroundQuery = False
  pc.Refresh
  pc.BackgroundQuery = originalBGStatus
Next

ce n'est peut-être pas idéal, mais essayez d'utiliser" Application.OnTime " de suspendre l'exécution du code restant jusqu'à ce que suffisamment de temps se soit écoulé pour s'assurer que tous les processus de rafraîchissement sont terminés.

que se passe-t-il si la dernière table de votre liste de rafraîchissement était une fausse table composée uniquement d'un drapeau pour indiquer que le rafraîchissement est complet? Ce tableau serait supprimé au début de la procédure, puis, en utilisant "Application.À l'heure," un sous-marin tournait toutes les 15 secondes environ pour vérifier pour voir si la fausse table avait été peuplée. Si elle est remplie, cesser l'Application".OnTime" checker et procéder avec le reste de votre procédure.

un peu bancal, mais ça devrait marcher.

Essayez ce qui suit:

ActiveSheet.Calculer

Je l'utilise dans une feuille de travail dans laquelle le bouton de commande change les valeurs d'un ensemble de données. Sur chaque clic, excel exécute cette commande et le graphique est mis à jour immédiatement.

j'avais ce même problème, et j'ai essayé toutes les solutions ci-dessus sans succès. Finalement résolu le problème en supprimant la requête entière et en en créant une nouvelle. Il avait exactement les mêmes paramètres que celui qui ne fonctionnait pas (littéralement la même définition de requête que j'ai simplement copiée l'ancienne). Je ne sais pas pourquoi cela a résolu le problème, mais il l'a fait. Espérons que cela aide quelqu'un.

si vous n'êtes pas marié à L'utilisation D'Excel Web Query, vous pouvez essayer d'ouvrir L'URL comme un cahier d'exercices séparé à la place. Suivre cette route vous permet de travailler sur les données résultantes une fois que la requête web est terminée, tout comme si vous désactiviez "Enable background refresh."

ce qui est bien, C'est Qu'Excel affiche une barre de progression pendant la requête, au lieu de simplement geler / afficher un message de chargement dans la cellule de destination.

Voir ma réponse sur ce question: Comment puis-je post-traiter les données d'une requête Web Excel lorsque la requête est complète?

le compromis de cette approche est que vous devez gérer le traitement des données que vous récupérez vous - même-Excel ne le mettra pas dans une destination donnée pour vous.

nous avons fini par suivre cette route après avoir essayé quelque chose qui ressemble à ce que vous semblez avoir fait.