Power Query

Matthias Kirsch · 2023-10-15T13:19:29+00:00

Liebe alle, Als absoluter Neuling wäre ich dankbar für Anweisungen darüber, wie man Power Query und den zugehörigen Editor für das folgende Problem verwendet: Ich habe einen Ordner mit .txt-Dateien, von denen jede aus einer einzelnen Spalte von Daten ohne Überschrift besteht. Diese sollten in ein einziges Excel-Arbeitsblatt kombiniert werden, wobei die Dateinamen als Spaltenüberschriften dienen sollten und jede Spalte die Daten aus einer einzelnen Datei enthält. Bisher habe ich es nur geschafft, die Dateien zu kombinieren, um eine einzige Spalte von Daten zu erhalten: Die erste Spalte enthält den Namen der txt-Datei, der so oft wiederholt wird, wie es Datenzeilen in der Datei gibt. Ich möchte jedoch den Inhalt der einzelnen Daten spalten aus jeder Datei in separaten Spalten im resultierenden Arbeitsblatt haben (nur ein Arbeitsblatt mit so vielen Spalten, wie es txt-Dateien gibt). Idealerweise sollte dieses Arbeitsblatt jedes Mal aktualisiert werden, wenn ich eine neue txt-Datei zum Quellordner hinzufüge. Ich hoffe, ich habe das Problem klar genug dargelegt, damit jemand da draußen eine funktionierende Lösung bereitstellen kann. Im Voraus vielen Dank und alles Gute, Matthias

darf ich?

Ich habe die Idee von vorher implementiert: pro Datei alle Zeile Semikolon-getrennt in einer Spalte, das macht die Funktion "Datei transformieren":

let

    Quelle = (Parameter1 as binary) => let

        Quelle = Table.FromColumns({Lines.FromBinary(Parameter1, null, null, 1252)}),

        #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(Quelle, "Benutzerdefiniert", each 1),

        #"Gruppierte Zeilen" = Table.Group(#"Hinzugefügte benutzerdefinierte Spalte", {"Benutzerdefiniert"}, {{"Zusammmengefasst", each Text.Combine([Column1], ";")}}),

        #"Entfernte Spalten" = Table.RemoveColumns(#"Gruppierte Zeilen",{"Benutzerdefiniert"})

    in

        #"Entfernte Spalten"

in

    Quelle

Ein Bischen merkwürdig ist, dass die Gruppierung erfordert, dass eine Gruppierung-Spalte vorhanden ist. Ich habe daher eine "Benutzerdefiniert" eingeführt, mit alle Zeile = 1. Und nach der Gruppierung, inkl. Text.Combine, wieder gelöscht.

Die Funktion wird in der Dateiliste gerufen, die Semikolon-getrennte Text in Spalten erweitert, transponiert und die erste Zeile als Überschrift übernommen:

let

    Quelle = Folder.Files(Excel.CurrentWorkbook(){[Name="cPfad"]}[Content]{0}[Column1]),

    FilterNoHidden = Table.SelectRows(Quelle, each [Attributes]?[Hidden]? > true),

    FilterNurTxt = Table.SelectRows(FilterNoHidden, each  [Extension] = ".txt"),

    FilterNurAktDateien = Table.SelectRows(FilterNurTxt, each Date.IsInCurrentWeek([Date modified])),

    FctDateiTrafo = Table.AddColumn(FilterNurAktDateien, "Datei transformieren", each #"Datei transformieren"([Content])),

    #"Andere entfernte Spalten" = Table.SelectColumns(FctDateiTrafo,{"Name", "Datei transformieren"}),

    #"Erweiterte Datei transformieren" = Table.ExpandTableColumn(#"Andere entfernte Spalten", "Datei transformieren", {"Zusammmengefasst"}, {"Zusammmengefasst"}),

    #"Spalte nach Trennzeichen teilen" = Table.SplitColumn(#"Erweiterte Datei transformieren", "Zusammmengefasst", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv) ),

    #"Transponierte Tabelle" = Table.Transpose(#"Spalte nach Trennzeichen teilen"),

    #"Höher gestufte Header" = Table.PromoteHeaders(#"Transponierte Tabelle", [PromoteAllScalars=true]),

    #"Geänderter Typ" = Table.TransformColumnTypes(#"Höher gestufte Header",{{"Astrocyte.txt", type text}, {"Bergmann.txt", type text}, {"CerebGranule.txt", type text}})

in

    #"Geänderter Typ"

Das Quellverzeichnis habe ich in einer benannte Excel-Zelle "cPfad" reingepackt, sodass hier ein bischen Flexibilität gibt.

https://www.herber.de/bbs/user/163489.xlsx

VG
Yal

Hallo zusammen,

mit der Bitte, wenn von einem Fehler die Rede ist, diese Fehler vollständig zu benennen (Plus-Punkte für Matthias ;-). Es gibt Beiträge in allen Richtungen und es fehlt mir schwer, sicher zu sein über welche Fehler gerade gesprochen wird. Vielen Dank.

Ich habe eine Zeile zu viel in dem Code meines Beitrags https://www.herber.de/cgi-bin/eachthread.pl?idx=1949603#1949805 Nicht absichtlich: PQ fügt gern Optimierung nach, in dem Fall die Typfestellung nach dem Beförderung der erste Zeile als Header. Diese Aktion wird Anhand der Spaltennamen angelegt. Da diese Namen die Dateinamen sind, wäre diesen Code nicht universell genug. Ich habe den Fehler in https://www.herber.de/cgi-bin/eachthread.pl?idx=1949603#1949806 jedoch die Datei nicht angepasst. Möge meine Faulheit verzeiht werden.

Aber es gibt noch eine Zeile, die überflüssig ist: da ich mit einem vorhandenen Verzeichnis, wo andere .txt vorliegen, habe ich kurzerhand eine
FilterNurAktDateien = Table.SelectRows(FilterNurTxt, each Date.IsInCurrentWeek([Date modified])),
dazwischen platziert. Spricht, nur die Dateien der aktuelle Woche. Diese BEschränkung ist in ein normalen Fall nicht notwendig und sogar eventuell störend.

xl-Version: zwar kommt es zu einer Meldung, wenn man unter Excel 2016 in PQ öffnet, die unter 365 entstanden ist, aber in 99,9% der Fälle gibt es keine Auswirkung. Ich habe noch nicht entdeckt, welcher Teil von PQ "nur" 365-tauglich wäre.

VG
Yal

Forumthread: Power Query

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Power Query für Neulinge: Daten aus Textdateien kombinieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)