Codeerweiterung mit regelmäßiger Speicherung
07.04.2018 13:15:06
FragePeter
ich habe folgendes Problem, welches leider erst seit kurzem vorherrscht.
Folgenden Code habe ich bisher in Verwendung damit ich alle meine Queries (ca. 1250 Webseitenabfragen bzw. Aktualisierungen) automatisch auf ca. 250 Sheets aktualisieren kann (das dauert aktuell ca. 5-6h).
Sub Aktualisierung()
'alle Querytables in allen Blättern der Arbeitsmappe aktualisieren
Dim ws As Worksheet, objQT As QueryTable, objLst As ListObject
For Each ws In ThisWorkbook.Worksheets
For Each objLst In ws.ListObjects
objLst.QueryTable.Refresh BackgroundQuery:=False
Next objLst
Next ws
Set ws = Nothing
Set objLst = Nothing
End Sub
Das Problem akutell ist, dass sich Excel (vermutlich nach dem letzten Query)die Arbeitsmappe schließt und ich nur noch den Stand seit dem letzten Speichern wiederherstellen kann. Somit bekomme ich die Queries einfach nicht mehr aktualisiert.Wie kann nun im Code ein automatisches Speichern z.b. nach 1h, theoretisch würde ja auch am Ende nach dem letzten Query reichen, implementiert werden?
Vielen Dank für eure Ideen und Hilfe.
VG