Hi!

Für eine Vielzahl von Textdateien (Dateiformat: .sch und .sm) muss ich jeweils eine Excel-Datei (mit automatischer fortlaufender Benennung) angelegen

Die zu übertragenden Zahlen stehen in der Textdatei in Zeilen, getrennt durch Leerzeichen. In der Excel-Tabelle sollen sie aber einzeln in Zellen stehen. Deshalb ist meine Idee 'Spalte nach Trennzeichen teilen' anzuwenden

Folgender Code resultiert wenn ich das Vorgehen für eine Textdatei als Makro aufzeichne:

ActiveWorkbook.Queries.Add Name:="PSP1", Formula:= _
      "let" & Chr(13) & "" & Chr(10) & "    Quelle = Table.FromColumns({Lines.FromBinary(File.Contents(""C:\Users\manue\Desktop\Daten\PSP1.SCH""), null, null, 1252)})," & Chr(13) & "" & Chr(10) & "    #""Spalte nach Trennzeichen teilen"" = Table.SplitColumn(Quelle, ""Column1"", Splitter.SplitTextByDelimiter(""#(tab)"", QuoteStyle.Csv), {""Column1.1"", ""Column1.2"", ""Column1" & _
      ".3"", ""Column1.4"", ""Column1.5"", ""Column1.6"", ""Column1.7"", ""Column1.8"", ""Column1.9"", ""Column1.10"", ""Column1.11""})," & Chr(13) & "" & Chr(10) & "    #""Geänderter Typ"" = Table.TransformColumnTypes(#""Spalte nach Trennzeichen teilen"",{{""Column1.1"", Int64.Type}, {""Column1.2"", Int64.Type}, {""Column1.3"", Int64.Type}, {""Column1.4"", Int64.Type}, {""Column1.5"", type text}, {" & _
      """Column1.6"", type text}, {""Column1.7"", type text}, {""Column1.8"", type text}, {""Column1.9"", type text}, {""Column1.10"", type text}, {""Column1.11"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Geänderter Typ"""

PROBLEM:

Die Textdateien haben alle eine unterschiedliche Menge an Inhalt. So kann es sein dass einmal 10 Spalten resultieren und andersmal 100. Wie kann ich den Code umschreiben dass er für alle Textdateien gültig ist

LG