Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten von einer Webseite importieren

Daten von einer Webseite importieren
05.11.2024 12:58:17
Enrico
Hallo zusammen,
Ich habe eine Datei, die mit zwei Excel Versionen genutzt wird.
( Microsoft 365 / Version 2408 & Microsoft Office Standard 2016)
In der Datei werden per Makro Daten aus dem Internet abgefragt / importiert.
Mit Microsoft 365 funktioniert alles problemlos. Auf dem PC mit der 2016 Version dauert die Abfrage seit einigen Tagen deutlich länger als früher.
Kopiere ich den Link direkt in die Adresszeile des Browsers ist das Ergebnis in 2 Sekunden da.
Hat jemand eine Idee was die Ursache sein kann, dass in der 2016er Version die Abfrage so lange dauert?
Danke

Makro (ein Beispiel) :

Link = "https://www.boerse.de/aktienkurse/"

Cells.Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:="URL;" & Link, Destination:=Range("$A$1"))
.Name = Link
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Selection.QueryTable.Delete
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von einer Webseite importieren
05.11.2024 13:18:22
Yal
Hallo Enrico,

dein Code erzeugt jedesmal eine Power Query Abfrage aufs neu, obwohl diese Abfrage in der Datei bereits vorhanden ist.

Es würde reichen, die Abfrage zu aktualisieren:
Sub Makro2()

Worksheets("Tabelle1").ListObjects(1).QueryTable.Refresh BackgroundQuery:=False
End Sub


wenn der Name der ListObject bekannt ist ("Abfrage1"):
Sub Makro2()

Range("Abfrage1").ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub


Es könnte die Verarbeitungszeiten kürzen.

VG
Yal
Anzeige
AW: Daten von einer Webseite importieren
07.11.2024 08:07:54
Enrico
Danke für die Antwort,

die wiederholten Abfragen in der Datei habe ich auch schon gelöscht.
(unter Formeln - Namensmanager)
Was ist eigentlich der richtige Eintrag im Makro um die alte(n) Abfragen zu löschen ?
(Selection.QueryTable.Delete ??? )

Leider ändert das löschen der Abfragen an dem Problem nichts.
Auch mit einer "sauberen" Datei dauert die Abfrage im Office 2016 deutlich länger (in meinem Fall 57 Sekunden) und im Office 365 unter einer Sekunde.

Noch ärgerlicher für mich:
Bis vor 3 Wochen funktioniert es auch an den Office 2016 PC´s einwandfrei (also Abfragezeit unter 1 Sekunde)

Ich bekomme aber leider auch keine Info, was sich updatetechnisch in dem Firmennetz an den PC´s mit der Office 2016 Lizenzen geändert hat.

#ratlos

Falls noch jemand eine Idee hat, gerne her damit.

Danke
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige