Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Querytables Webanfrage in Schleife extrem langsam bzw. hängt

VBA Querytables Webanfrage in Schleife extrem langsam bzw. hängt
27.12.2019 20:35:06
Thomas
Hallo zusammen,
Ich schreibe mir gerade ein Makro mit dem ich mir über Querytabels Tabellen von Webseiten runterlade.
Grundsätzlich klappt das alles so wie ich es brauche. Jetzt wollte ich aber eine Schleife einfügen, bei der ich die URL aus einem Array einlese. Das funktioniert bis zum zweiten Schleifendurchlauf wie gewünscht, hängt (bzw. extremst langsam) sich dann aber beim 3. Durchlauf auf.
Hat jemand eine Idee woran das liegen kann? läuft hier irgendein puffer Über?
Vielen Dank
Gruß
Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Querytables Webanfrage in Schleife extrem langsam bzw. hängt
27.12.2019 20:38:32
Thomas

Set ws = ThisWorkbook.Worksheets("Symbols")
Worksheets.Application.ScreenUpdating = False
With ws
lr = .Cells(Rows.Count, "A").End(xlUp).Row
If lr 

AW: VBA Querytables Webanfrage in Schleife extrem langsam bzw. hängt
28.12.2019 09:27:49
Luschi
Hallo Thomas,
solange Du nur 'QueryTables.Add' benutzt, erzeugt Du immer neue Abfragen, ohne die alten mal zu entsorgen.
Ich hoffe, daß Du weißt, daß mit '.BackgroundQuery = True' die Abfrage im Hintergrund laufen soll und mit '.Refresh BackgroundQuery:=False' wird dann umgeswitcht (warum nicht gleich auf 'False' stellen?).
Nach jedem Abfrage-Durchlauf sollte ein 'DoEvents' folgen, und das Löschen der Abfrage(n) verhindert, daß der QueryTables-Container sich füllt & füllt & füllt.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: VBA Querytables Webanfrage in Schleife extrem langsam bzw. hängt
28.12.2019 18:40:53
Thomas
Hallo Luschi,
Vielen Dank für deine Hilfe! hat super funktioniert! Ein DoEvents hat's dann letztlich ausgemacht
Gruß
Thomas

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige