Power Query VBA Abfragen zusammenführen

Hallo Zusammen,
ich hoffe hier kann mir jemand weiterhelfen.
Mein Ziel ist es mehrere Abfragen aus verschiedenen CSV-Dateien mit einem Makro zusammenzuführen.
Bisheriger funktionierender Stand:
Die Abfragen werden mit einem Makro erzeugt. Die Pfade für die Dateien werden mithilfe der Dateinamen erstellt und in einem Array gespeichert. In einer For-Schleife werden dann mit den erzeugten Pfade eine Abfrage mit Verbindung erstellt.
Abfragen zusammenführen im Power Query(ohne Makro) :
Wenn ich meine Abfragen manuell im Power Query erstelle, erhalten die Abfragen automatisch einen Namen. Diese Namen der Abfragen werden dann mit der Methode Table.Combine zusammengeführt.
Noch Offen:
Bei dem manuellen Zusammenführen der Abfragen, wird automatisch die Namen der Abfragen in der Methode "Table.Combine" aufgelistet , siehe Bild im Anhang.
Userbild

Nun möchte ich dieses Teil über mein Makro laufen lassen. Meine Namen der Abfragen sind in einem Array gespeichert. Nun weiss ich aber leider nicht, wie ich den Inhalt des Arrays nacheinander auslesen kann. Ich hatte auch schon die Idee mit Stringbuilder zu arbeiten und die Namen in einem großen String zu speichern nur hatte das leider nicht in meinem Makro funktioniert.
Ich würde mich freuen, wenn jemand eine Idee hätte, wie ich die Abfragenamen (wie in dem Bild) in die Methode mit einem Makro einschreiben könnte.
Ich hoffe meine Erklärung war verständlich, ansonsten erläutere ich gerne noch bestehende Unklarheiten. Ich bedanke mich und verbleibe
mit vielen Grüßen
Sarah

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sarah,
es geht wesentlich einfacher, und vor allem im Sinne der Erfindung von Power Query:
_ im Menü Daten, "Neue Abfrage", "aus Datei", "Aus Ordner". Du wählst das Verzeichnis "C:\Users\Ordner\" aus
_ Abfrage in "Dateiliste" umbenennen (nur für die Erklärung wichtig)
_ zuerst stehen lassen, also "Schliessen & laden in ...", "nur Verbindung herstellen"
_ auf die vorhandene Tabelle "Tabelle1", Menü "Daten", "aus Tabelle"
_ "Spalte hinzufügen", "Benutzerdefinierte Spalte", Name "Datei", Formel "=[Dateiname] & ".csv"
_ gehe auf die Abfrage "Dateiliste",
_ Menü "Start", "Abfrage zusammenführen", Spalte "Name" aus der Abfrage "Dateiliste" und Spalte "Datei" aus "Tabelle1", Join-Art "innerjoin"
_ im Überschrift vom Spalte "Content", die 2 Pfleile nach unten klicken,
_ Behandlung vornehmen, wie in deiner bisherige Datei-Abfrage.
Nun sind alle deine Datei aus der Liste in "Tabelle1" bereits kombiniert.
Dasselbe mit der Sollwert-Datei.
Dann beide in "Dateiliste" kombinieren,
Schliessen & Laden
in der Abfrage-Liste "Dateiliste" auswählen, rechtsklicken, "Laden in..." "Nur Verdindung" belassen, aber "Dem Datenmodell hinzufügen" anhaken.
Dann Menü "Einfügen", "Pivottabelle" und als Quelle den Datenmodell verwenden.
Fertig.
Dass deine Datei "Sollwert" nicht dieselbe Spaltendefinition wie die anderen Datei könnte zu einer Schwierigkeit führen.
VG
Yal

Sub test() Dim Z As Range Dim Liste As String For Each Z In Worksheets("Tabelle1").Range(Range("N2"), Range("N99999").End(xlUp)).Cells Liste = Liste & ", " & Z.Value Next Liste = Mid(Liste, Len(", ") + 1) 'das führende Komma+Leerzeichen wieder loswerden MsgBox Liste End Sub

Beliebteste Forumthreads (12 Monate)

Power Query VBA Abfragen zusammenführen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

92 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Power Query VBA Abfragen zusammenführen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

92 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread