ich versuche gerade ein Makro zu erstellen, um Tabellen aus dem Web herunter zu laden. Mit Daten aus dem Web abrufen kein Problem, soweit es nur eine Tabelle betrifft. Aber daraus in einer Schleife mehrere Seiten abzurufen klappt nicht.
Fakten:
Url zum Abruf: https://www.xxxxxx.net/de/yyyy_ danach folgen überwiegend fortlaufende Nummern, die in einer Tabelle vorliegen und aus dieser Zeilenweise ausgelesen werden sollen. Aufgezeichnetes Makro ergibt für eine einzelne Seite bspw. diesen Code:
23.06.2025, 21:35 (Dieser Beitrag wurde zuletzt bearbeitet: 23.06.2025, 21:36 von Egon12.)
Hallo Edgar,
- Du legst dir einfach deine Zieltabellen auf einem getrennten Arbeitsblatt an. - am Ende des Durchlaufs kopierst du die PQ Ausgabe in die jeweilige Zieltabelle. Entweder in Zieltabelle Anfügen was neu ist oder Databodyrange leeren und einfügen (was praktikabler ist). - Am Schluss des Schleifendurchlaufs löschst du zuerst die Verbindung und dann das Tabellenblatt mit dem von PQ erzeugten Listobjekt. Dann der nächste Schleifendurchlauf.
Es ist sicherlich die Vorschlaghammermethode, aber dafür der geringste Aufwand.
24.06.2025, 01:18 (Dieser Beitrag wurde zuletzt bearbeitet: 24.06.2025, 01:20 von Ralf A.)
Hi Edgar,
wäre zwar gut, wenn man die korrekte Adresse kennen würde, aber versuch mal folgendes:
ersetze Quelle = Web.BrowserContents(""https://www.xxxxxx.net/de/yyyy_"")
durch: Quelle = Web.Page( Web.Contents("https://www.xxxxxx.net/de/yyyy_ "))
Ich persönlich würde es allerdings direkt mit PQ lösen. Die einzelnen Seiten könnte man dann z. Bsp. via List.Generate einlesen lassen. Genaueres lässt sich aber in Unkenntnis der Website nicht sagen.
Denkbar wäre auch folgendes Konstrukt:
let
Quelle = Web.Page(Web.Contents("https://www.xxxxxx.net/de/yyyy_")), AllTables = Quelle[Data],
//Konvertieren aller Spalten in allen Tabellen in Text ProcessedTables = List.Transform( AllTables,each Table.TransformColumnTypes( _,List.Transform(Table.ColumnNames(_), each {_, type text}))),
//Optional: Kombinieren in einer großen Tabelle (wenn die Strukturen gleich sind) CombinedTable = Table.Combine(ProcessedTables) in CombinedTable
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben. Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
Damit du sehen kannst, wie es geht, habe ich mal von hier das Excel-Forum importiert.
Mit der Abfrage: "Excel_Forum_Page_1" wird die Erste Seite des Forums importiert. Aus dieser Abfrage habe ich dann die Funktion: "fx_import_cef_excel_forum" erstellen lassen und dann in dieser de statischen Abruf der Ersten Seite in einen dynamischen geändert.
Dann habe ich eine Tabelle erstellt, in die ich die Seiten eintrage, deren Inhalt ich importieren möchte. das entspricht: " danach folgen überwiegend fortlaufende Nummern, die in einer Tabelle vorliegen und aus dieser Zeilenweise ausgelesen werden sollen."
Mit der Abfrage "Import_excel_Forum" wird dann der Import der für die definierten Seiten durchgeführt.
PQ ist für mich feindliches Land, ich habe davon keine Ahnung. Es ist auch kein Problem, händisch eine Seite nach der anderen abzurufen und dann diese Seiten untereinander in einem Blatt anzuordnen, aber nicht als Schleife.
@Ralf,
das Problem ist nicht der Abruf an sich, sondern die Schleife.
auf. Mein Versuch, die URL aus https://www.xxxxxx.net/de/yyyy & Zellinhalt mit Nummer zusammenzusetzen, klappt bei einer Seite, aber nicht bei mehreren, weil der DisplayName nicht richtig ist.
@ws-53 sieht zwar gut aus, aber ist mir um Einiges zu hoch. Ich weiß noch nicht einmal, wo ich anfangen soll einen Code zu suchen, geschweige denn nachzuvollziehen. Ich glaube ich stecke das Ganze und mache es händisch.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr! Über Rückmeldungen würde ich mich freuen.
Zitat: Mit Daten aus dem Web abrufen kein Problem, ...
das ist Power Query. Mit: Daten > Abfragen und Verbindungen werden dir dann rechts die in einer Mappe vorhandenen Abfragen gezeigt, die du zur Bearbeitung öffnen kannst.
Anfangs wirkt Power Query für viele etwas schwierig, aber i.d.R. legt sich das schnell.
Folgende(r) 1 Nutzer sagt Danke an ws-53 für diesen Beitrag:1 Nutzer sagt Danke an ws-53 für diesen Beitrag 28 • Jockel
okay, dann weiß ich ja offennsichtlich schonmal, wie man PQ einsetzt! Allerdings hört es dann schon auf. Der Unterschied zu Deiner Abfrage ist bei mir aber, das ich aus ca. 500 verschiedenen URL´s jeweils eine einzige Tabelle brauche. Alle URL sind dabei bis zum Unterstrich gleich, danach folgt eine Zahl. Mittlerweile beherrsche ich das soweit, dass ich eine Seite nach der anderen öffnen, die Daten auslesen und untereinander speichern kann. Die Befehle dazu habe ich auch in einem Makro gespeichert. Problem ist, die Zahlen am Ende der URL in einer Schleife aus einer Datei auszulesen und das ganze automatisiert zu erledigen.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr! Über Rückmeldungen würde ich mich freuen.
Zitat:Alle URL sind dabei bis zum Unterstrich gleich, danach folgt eine Zahl.
Das entspricht ja genau dem was ich für das Excel-Forum im Tabellenblatt "Tabelle1", mit den Inhalt 1 bis 5, realisiert habe.
Die Tabelle wird gelesen und für jeden Eintrag der Tabelle wird die Funktion "fx_import_cef_excel_forum" aufgerufen mit Übergabe des Inhalts der Jeweiligen Zelle aus der Spalte "Seite".
let Quelle = (Seite as text) => let // Source = Web.BrowserContents("https://www.clever-excel-forum.de/Forum-Excel?page=1"), Source = Web.BrowserContents("https://www.clever-excel-forum.de/Forum-Excel?page="&Seite),
24.06.2025, 11:37 (Dieser Beitrag wurde zuletzt bearbeitet: 24.06.2025, 11:38 von Ralf A.)
(24.06.2025, 10:14)BoskoBiati schrieb: ...Der Unterschied zu Deiner Abfrage ist bei mir aber, das ich aus ca. 500 verschiedenen URL´s jeweils eine einzige Tabelle brauche. Alle URL sind dabei bis zum Unterstrich gleich, danach folgt eine Zahl.
...das ist überhaupt kein Problem. Hab mir mal erlaubt, Wilfrieds Funktion zu übernehmen, aber die Seitenanzahl dynamisch auslesen oder festlegen zu lassen. In der Abfrage Einlesen wird das hier im Schritt AlleSeiten festgelegt:
AlleSeiten = Table.FromList({1..10}, Splitter.SplitByNothing(), null, null, ExtraValues.Error),//...kürze ich das auf die ersten 10 Seiten...
Die 1. Zeile ist auskommentiert, weil es über 1800 auszulesende Seiten im Forum gibt. Das würde natürlich entsprechend lange dauern. Wenn Du es trotzdem so haben möchtest, dann die Kommentarzeichen // entfernen und vor die 2. Zeile setzen. Es kann immer nur einen Abfrageschritt mit gleichem Namen geben.
Vermutlich würden alle Zeilen aller Seiten das Excellimit von > 1.000.000 Zeilen sprengen. In diesem Fall kannst Du trotzdem alle Datensätze einlesen, darfst sie aber nur ins Datenmodell laden und könntest das dann mit PowerPivot auswerten lassen. Hab das im letzten Abfrageschritt mal mit eingebaut (also die Zeilenbegrenzung)
Denke daran, je dynamischer man Abfragen gestaltet, umso mehr Zeit benötigen die Abfragen. Es wäre also zu überlegen, ob Du wirklich alle 500 Seiten brauchst.
Die Adresse der Website kannst Du in der Funktion fx_import_cef_excel_forum im Schritt Source anpassen.
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben. Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
Edgar will ja nicht das Excel-Forum auslesen! Dies habe ich nur verwendet, um zu zeigen wie es geht. Normalerweise würde ich auch einen Von-/Bisbereich definieren. Aber da es sich bei Edgar wohl nicht um eine lückenlose Nummerierung, sondern um eine Liste von Nummern handelt, habe ich die Tabelle gewählt, über die ich festlege, welche Seiten ausgelesen werden sollen.
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
