PQ Abfrage wird nicht ausgeführt

[hziemer]

Hallo zusammen.

Ich lade in einem Master 21 andere Excel Tabellen.

Diese 21 Tabellen sollen bevor ich sie lade aktualisiert werden.
In diesen Tabellen wird mittels PowerQuery der Datenbestand aktualisiert und soll gespeichert werden

Das ist der Code:
Public Sub Alle_Dateien_aktualisieren()
Dim str_datei As String

ChDrive ("C:\")
ChDir ("C:\Users\Kunden\xxx\Performance")
str_datei = Dir("*.xlsx", vbNormal)

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Do Until str_datei = ""
    Workbooks.Open str_datei
    Application.Wait (Now + TimeValue("0:00:10"))
    ActiveWorkbook.Close savechanges:=True
    str_datei = Dir
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


Mein Gedanke hierbei ist, dass nach dem Workbook.open die Hintergrundaktualisierung startet.
Dann kommen 10 Sekunden warten und danach wird geschlossen und gespeichert.

Aber das funktioniert nicht. Wird die Hintergrundaktualisierung auch gestoppt? Wie kann ich das anders machen???

Danke für einen Hinweis.

[ralf_b]

versuchs mal mit nem Timer und nicht mit Wait.
evtl. noch doevents
ist die Abfrage denn auch so eingestellt das sie bei Dateiöffnung durchgeführt wird?

Du könntest die Abfrage auch per vba direkt refreshen. Möglicherweise mußt du das sogar. Also probiers mal aus.