QueryTables aktualisieren
08.04.2018 14:29:06
FrageHans
leider läuft mein Code nicht durch bzw. er führt dazu, dass sich Excel aufhängt und das Dokument wiederherstellen möchte (Excel 2016).
Luschi hatte mir schon einen Tipp gegeben mit DoEvents. Leider hilft das nicht weiter.
Sub Refresh()
Dim wS As Worksheet
Dim qry As QueryTable
For Each wS In ThisWorkbook.Worksheets
For Each qry In wS.QueryTables
qry.Refresh BackgroundQuery:=False
DoEvents
Next qry
Next wS
End Sub
Es werden ca. 1250 Queries aktualisiert (Webanfragen). Daher muss es eine aufeinanderfolgende Aktualisierung sein. Gibt es performantere Codes oder gibt es andere Ideen? Ich habe schon versucht den Speicher im Ram zu vergrößern, da ich vermutete, dass der Rechner zu wenig Ressourcen z.V. hat.
Ich würde gerne auch ein regelmäßiges Speichern in die Schleife einbauen.
Ein Traum wäre das ganze in eine Art Cloud zu legen, damit ich nicht selbständig immer aktualisieren muss, sondern es automatisch passiert (quasi realtime).
Vielen Dank für eure Hilfe am sonnigen Sonntag.
Beste Grüße
Anzeige