Office: (Office 2016) Dateien zusammenführen

Hallo!
Ich suche eine Möglichkeit aus 46 Excel Dateien 1 einzige Liste zu machen. Beschäftige mich schon 2 Stunden damit, komme aber auch mit unzähligen YouTube Tutorials nicht weiter.
Die Dateien sind alle gleich aufgebaut, haben unterschiedlich zwischen 1 & 10 Blättern die alle anders heißen.
Auch sind oben einige Felder die z.B. ein Datum beinhalten, erst darunter kommen die Spaltenüberschriften etc.
Daten stehen in den Spalten A bis M.

Ich suche eigentlich nach einer einfach Möglichkeit alle Zeilen aus Dok1 Tab1 in einem Dokument anzuführen, gleich darunter alle Zeilen aus Dok1 Tab2, dann Dok1 Tab 3, Dok2 Tab1, Dok3 Tab1, etc.

Die Daten beinhalten diverse Ersatzteile für Geräte. Für jedes Gerät gibt es ein eigenes File mit je einem Tabellenblatt je Gerätetyp.

Im Endeffekt sollen alle Ersatzteile untereinander stehen, doppelte kann ich dann über die Artikelnr. rausschmeißen.

Ich hätte es mit PowerQuery (Abfrage aus Ordner) versucht, scheitere aber offenbar daran dass alle Tabellenblätter unterschiedlich heißen.

Hat jemand eine Idee wie ich das einfach umsetzen kann?

 

Hallo,

wenn die Blätter in den Dateien gleich aufgebaut sind, könnte man das mit einem Makro realisieren.

 

Hallo
Ich denke immer noch das für dich PQ die richtige bzw. die leichtere Wahl ist.
Wenn du nicht klar kommst dann hilft Beispieldatei mit Wunschergebnis.

 

Hi,

wenn die Struktur aller Dateien gleich ist, ist das nur ein kleines Problem.
Im Beispielcode sind zwar noch individuelle Anpassungen nötig, aber im Großen und Ganzen sollte der recht universell einsetzbar sein...

Lösung mit PQ
M-Code:

Code:

let
//Schritt 1: Den Inhalt des Ordners einlesen.
    Quelle = Folder.Files("C:\Users\User\OneDrive\Dokumente\All_PQ\Dateien\Exceldateien\Einheitlich"),

//Schritt 2 (optional): Nach Dateitypen (oder andere Dateiattributen) filtern. Groß- und Kleinschreibung dabei ignorieren
    NurExceldateien = Table.SelectRows(Quelle, each Text.Lower([Extension]) =  ".xlsx" or Text.Lower([Extension]) = ".xls"),
 
//Schritt 3: Die Liste der Spalte Content in eine Tabelle konvertieren
    ContentZuTabelle = Table.FromList(NurExceldateien[Content], Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    AddIndex = Table.AddIndexColumn(ContentZuTabelle, "Index", 0, 1, Int64.Type),
    AddColDateinamen = Table.AddColumn(AddIndex, "Pfad", each NurExceldateien[Folder Path]{[Index]} & NurExceldateien[Name]{[Index]}),
    Dateien = Table.AddColumn(AddColDateinamen, "Datei", each  Quelle[Name]{[Index]}, type text),
    AddColAlleQuelltables = Table.AddColumn(Dateien, "AlleQuellen", each Excel.Workbook(File.Contents([Pfad] ),null,true)),
    #"Erweiterte AlleQuellen" = Table.ExpandTableColumn(AddColAlleQuelltables, "AlleQuellen", {"Name", "Data", "Kind"}, {"AlleQuellen.Name", "AlleQuellen.Data", "AlleQuellen.Kind"}),
//Hier bei Bedarf noch einen Filter einfügen
    DelCols = Table.RemoveColumns(#"Erweiterte AlleQuellen",{"Index","Pfad"}),
    NeueSpaltennamen = Record.ToList( DelCols[AlleQuellen.Data]{0}{0}),
    AlteSpaltennamen = Table.ColumnNames(DelCols[AlleQuellen.Data]{0}),
    ExpandDatas = Table.ExpandTableColumn(DelCols,"AlleQuellen.Data",AlteSpaltennamen,NeueSpaltennamen),
    #"Gefilterte Zeilen" = Table.SelectRows(ExpandDatas, each ([ID] <> "ID")),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen",{"Column1", "ID", "AlleQuellen.Kind"})
in
    #"Entfernte Spalten"

Im Anhang eine Erklärung zur Vorgehensweise...

 

Danke für eure Rückmeldungen.

Die Tabellen sind grundsätzlich gleich aufgebaut, also die ersten Zeilen sind immer ident, auch die jeweiligen Infos in den Spalten.
Unterschiede gibt es in der Länge der einzelnen Tabellen.
Leider kenne ich mich mit Makros so gar nicht aus. Hab zwar vor Jahrzehnten programmiert, bin da aber mittlerweile komplett ahnungslos.

Auswahl originaler (aber anonymisierter) Beispieldateien angehängt. eigentlich brauche ich aus allen Dateien & Blättern immer nur die Spalten C, F & I

Danke, ich habe mir deine Erklärung angesehen. Hier sprichst du aber davon dass alle Blätter idente Namen haben. Das ist bei mir eben nicht der Fall und auch nicht ohne großen Auswand realisierbar. Da kann ich gleich alle händisch zusammenkopieren.

 

...dann muss ich diese Aussage korrigieren.... sorry...
Im Bild siehst Du das Ergebnis dieser Abfrage. In Spalte A stehen die ausgewählten Dateinamen (dieses Ordners), in Spalte B die Namen der Datenquellen, die durchaus voneinader abweichen können (Name oder Typ, wie Tabellenblatt oder formatierte Tabelle) und ab Spalte C die vereinheitlichten Spaltennamen für alle Quellen.

Also einfach mal ausprobieren... Wenn dann Fragen auftauchen, kannst Du immer nochmal nachfragen....

 

Okay, Schritt 1 hätte ich, aber wie komme ich zu Schritt 2 oder wohin soll ich das schreiben?
Bei "angewendete Schritte" steht bei mir nur Quelle, ich kann da nichts neues hinzufügen.
Deine Erklärung ist für wissende, ich bin bei PQ aber leider komplett ahnungslos

 

Hallo
Entspricht dies deinem Wunschergebnis?
Eine vor formatierte Tabelle ist nicht zwingend von Nöten, aber dennoch arbeite ich fast nur damit.

 

Ja, das ist perfekt. Wie kommt man da hin?

 

...das wäre meine nächste Frage gewesen: wie soll das Wunschergebnis aussehen... aber @PIVPQ hat ja schon das Wunschergebnis....

 

Sry, ich dachte das wäre damit erklärt

 

...ich hab da ein etwas anderes Ergebnis.



Im Beispielcode musst Du den Pfad anpassen und ggf. den Schritt Auswahl anpassen/löschen.
Und das Ergebnis mal selbst kontrollieren.....

 

Danke dir.
Den Pfad konnte ich anpassen, allerdings bekomme ich eine Fehlermeldung beim Schritt "AnzCol":

Expression.Error: Der Vorgang konnte nicht abgeschlossen werden, da die Enumeration nicht genügend Elemente enthielt.
Details: -> hier steht LIST in []. Kann ich hier aber nicht einfügen.

Was könnte der Fehler sein?

Die _xlnm.Print_Area sind mir bei meinen Versuchen mit PQ auch untergekommen.
Die kann ich aber rausschmeißen, das stört nicht.

 

Hallo,

jetzt kann ich doch mal nicht widerstehen.
- Wer oder was um "Himmels Willen" baut/erzeugt solche Tabellen.
- Ich vermute/bin mir nahezu sicher, dass dies noch nicht alles an Umständen abbildet, was zum Einlesen der 3 Dateien erforderlich ist.

Anhand der Aussage "Ja, das ist perfekt" gehe ich davon aus, dass die verbundenen Zellen des jeweiligen Artikels aufgelöst und zu jedem Datensatz in Spalte A die fehlenden Begriffe eingefügt werden. Dies ist eigentlich der korrekte Weg um auf Daten zurückzugreifen die vernünftig verarbeitbar sind.

Umsetzbar ist es, aber eben aufwendig. Das wird nur jemand anfassen, wenn im Vorfeld alles geklärt ist was von Nöten ist. Es wird niemand Lust haben ein paar Mal von vorn anzufangen.

Gruß Uwe

 

...smile.... exakt das, was @OilMax ausspricht, hab ich mir auch gedacht, als ich mir die Dateien angeschaut hatte...

Das scheint aber immer noch nicht alles zu sein.
Ein Fehler bei AnzCol ist allerdings seltsam, dann da soll ja lediglich die Anzahl der Spalten des 1. Datensatzes der Spalte Data des Vorgängerschritts gezählt werden. Die Fehlermeldung spricht vielmehr für den Nachfolgeschritt, und das lässt darauf schließen, dass entgegen DeinerAussage, alle Dateien verfügen über die gleiche Struktur, es doch Unterschiede, zumindest in der Anzahl der Spalten gibt. Ich habe noch eine andere Vermutung.
Poste doch mal Deinen M-Code....