Zahlreise TSV-Dateien in eine XLSX

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Günther,
danke für die Antwort.
Die Sachen, die ich bisher gefunden habe, halfen mir allerdings nicht wirklich weiter. Daher fragte ich hier ja noch mal.

Wenn ich aber lese, dass du 900+ Tabellenblätter erstellen willst, dann habe ich absolut NULL Bock, irgendwelche Unterstützung zu leisten.

Steile Ansage, ohne zu wissen, worum es geht. Aber immerhin reichte dein Bock für eine Antwort. Sehr nett, vielen Dank!

Gleichartige Daten gehören in 1 Tabelle. Punkt.

Wer hat etwas von gleichartigen Daten gesagt? Fragezeichen.

mit deiner Version geht das sehr schön über Daten Abrufen und transformieren.

Hm, das klingt interessant. Aber ich will wie gesagt nicht alle Daten in einem Arbeitsblatt (das geht auch gar nicht, weil die Tabellen grundverschiedene Spalten haben). Also kein "Konsolidieren". Und soweit ich das bisher weiß, kann man über Daten -> Externe Daten abrufen leider immer nur eine Datei einzeln anwählen und einfügen. Das wäre dann eben sehr, sehr zeitaufwändig. Daher die Frage nach einem Makro.

Hallo,
falls mal jemand etwas ähnliches machen möchte, ich habe es jetzt für mich so gelöst:


Sub Makro2()
Dim i As Integer
Dim Pfad As String
Dim Dateiname As String
Dim Blattname As String
Dim Blattname2 As String
Application.DisplayAlerts = False
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="D:\Zusammenfassung.xlsx"
Pfad = Workbooks("Mappe1").Worksheets("Tabelle1").Range("E1")
For i = 1 To 1000
If Workbooks("Mappe1").Worksheets("Tabelle1").Cells(i, 1) = "" Then
Exit For
Else
Dateiname = Workbooks("Mappe1").Worksheets("Tabelle1").Cells(i, 1)
Blattname = Workbooks("Mappe1").Worksheets("Tabelle1").Cells(i, 2)
Blattname2 = Workbooks("Mappe1").Worksheets("Tabelle1").Cells(i, 3)
Workbooks.OpenText Filename:= _
Pfad & Dateiname & ".xls", Origin:=xlMSDOS _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
Sheets(Blattname).Name = Blattname2
Blattname = Blattname2
Sheets(Blattname).Select
Sheets(Blattname).Copy Before:=Workbooks("Zusammenfassung"). _
Sheets(1)
Workbooks(Dateiname).Close
End If
Next
End Sub

Es gibt sicher elegantere Wege dasselbe zu tun, aber das war das, was ich mir auf die Schnelle auf Basis einiger aufgezeichneter Makros zusammengebastelt habe. Voraussetzung ist, dass man die Dateinamen alle kennt und in der Tabelle1 ablegt (ich habe mir einfach per TotalCommander eine Liste der Dateinamen aus dem Ordner herauskopiert und dann in Tabelle1 eingefügt).

Beliebteste Forumthreads (12 Monate)

Zahlreise TSV-Dateien in eine XLSX

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread