+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: PQ Abfrage wird nicht ausgeführt (/thread-28343.html)
PQ Abfrage wird nicht ausgeführt - hziemer - 10.08.2022
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.
RE: PQ Abfrage wird nicht ausgeführt - ralf_b - 10.09.2022
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.