MS Excel Webabfrage VBA

Es werden leider nur 50 Ergebnisse pro Seite angezeigt. Ich muss also das offset immer weider um 50 erhöhen, um alle abrufen zu können.

Und manuell, also wie auf deinem Bild, gehen die Links ja alle.

Und warum nicht gleich das offset weglassen und alle Elemente laden... mit Power Query ohne VBA?

Andreas.

Es werden leider nur 50 Ergebnisse pro Seite angezeigt. Ich muss also das offset immer weider um 50 erhöhen, um alle abrufen zu können.

Jaja, diese Webabfragen...

Also das Problem mit Deinem Code ist ein Problem des Query, da ist die URL zu lang...

Mal von irgendwelchen anderen Code mit HTTP request und Gedöns abgesehen (da bin ich raus, keine Lust mehr zu sowas) kann man sich eine relativ einfache Lösung mit PQ basteln. Dazu brauchen wir jedoch auch den erweiterten Editor in PQ...

Also machen wir mal eine einfache Webabfrage mit PQ wie üblich mit offset=0 und schauen was da für ein MCode rauskommt:

let

 Source = Web.Page(Web.Contents("https://www.onvista.de/aktien/finder/?continent[0]=Europa&PROFIT_PER_SHARE[enabled]=1&PROFIT_KGV[enabled]=1&DIVIDEND_AMOUNT[enabled]=1&DIVIDEND_YIELD[enabled]=1&PROFIT_PER_SHARE[year]=2019&PROFIT_KGV[year]=2019&DIVIDEND_AMOUNT[year]=2019&DIVIDEND_YIELD[year]=2019&offset=0")),

 Data0 = Source{0}[Data],

 #"Changed Type" = Table.TransformColumnTypes(Data0,{{"WKN", type text}, {"Wert", type text}, {"Branche", type text}, {"Land", type text}, {"Land2", type text}, {"Gewinn pro Aktie (€)", type number}, {"KGV", type number}, {"Dividende (€)", type number},
 {"Dividendenrendite (%)", type number}})

in

 #"Changed Type"

Im Prinzip müssen wir das nur mehrfach aufrufen und statt offset=0 eben offset=50 usw. bekommen => VBA in grün.

In PQ kann man diesen MCode in eine Funktion umwandeln, dazu muss man nur eine Zeile mit

() =>

als erste Zeile einfügen. In den Klammern kann man Parameter angeben, für uns ist

(ofs as number) =>

passend.

MCode ist kein VBA und hier muss man zwingend a) auf die Schreibweise achten und b) die Datentypen korrekt umwandlen.

Also machen wir aus

offset=0"

das

offset=" & Number.ToText(ofs)

komplett:

(ofs as number) =>

let

 Source = Web.Page(Web.Contents("https://www.onvista.de/aktien/finder/?continent[0]=Europa&PROFIT_PER_SHARE[enabled]=1&PROFIT_KGV[enabled]=1&DIVIDEND_AMOUNT[enabled]=1&DIVIDEND_YIELD[enabled]=1&PROFIT_PER_SHARE[year]=2019&PROFIT_KGV[year]=2019&DIVIDEND_AMOUNT[year]=2019&DIVIDEND_YIELD[year]=2019&offset="
 & Number.ToText(ofs))),

 Data0 = Source{0}[Data],

 #"Changed Type" = Table.TransformColumnTypes(Data0,{{"WKN", type text}, {"Wert", type text}, {"Branche", type text}, {"Land", type text}, {"Land2", type text}, {"Gewinn pro Aktie (€)", type number}, {"KGV", type number}, {"Dividende (€)", type number},
 {"Dividendenrendite (%)", type number}})

in

 #"Changed Type"

Sieht in PQ dann so aus:





Auf der rechten Seite steht der Name der Funktion "Ergebnisse (9513 Treffer)", da geben wir einfach mal My als Namen ein:





Soweit so gut.

Anmerkung: Man kann in PQ auch Schleifen programmieren und damit alles folgende eleganter lösen, aber ich bin nicht soo gut in MCode das ich hier eine "schicke" Lösung posten möchte.

Also ein einfacher Workaround, den man auch gut für andere Fälle gebrauchen kann, zurück zu Excel:

Wir erstellen eine Tabelle und berechnen da die Offset-Werte, erst mal ein paar zum Test:





Diese laden wir in PQ und nun Spalte hinzufügen \ Benutzerdefinierte Funktion aufrufen:





und bekommen das





Nun auf den Doppelpfeil rechts neben "My" klicken und den Haken bei "blabla Präfix verwenden" entfernen





Ok

Optional: Rechts-Klick auf die Spalte Offset und Entfernen

Optional: Sortieren nach belieben

Start \ Schließen und Laden

Wenn das einmal steht und das aktualisieren ansteht, dann Rechts-Klick auf die Tabelle und Aktualisieren, bzw. Daten \ Alle aktualisieren.

Der große Haken zum Schluß: Webseiten ändern sehr oft Ihre Gestaltung und meistens funktionieren Webabfragen nach ein paar Monaten nicht mehr. Gerade wenn es um Geld geht drehen die Banken mind. den "Nichtkunden" schnell den Hahn zu, weil wenn sich eine
offene Seite herum spricht, dann wird diese sehr schnell Millionenfach angepingt und der Server überlastet.

Alles klar?

Andreas.

Auch wenn dadurch das Problem nicht gelöst wurde; trotzdem danke für den Hinweis zum UserVoice-Forum. (Workaround ist vorübergehend, die Webabfrage im Excel für Windows zu machen - danach kann die Aktualisierung im Excel für Mac gemacht werden. (Habe es
soeben für die Cryptokurse gemacht.)

Hallo Stephane,



vom Metatrader war hier noch nie die Rede. Ich dachte du hättest aus Excel heraus eine Webabfrage gemacht.

Da du in Excel Formeln verwendest, bekommst du genau das, was der Metatrader liefert. Also musst du nach einer Einstellung im Metatrader suchen bzw. dessen Support besuchen.



Mit freundlichen Grüßen

Claus