Thema Datum  Von Nutzer Rating
Antwort
Rot Daten aus Textdatei einfügen und transformieren
 05.12.2019 18:20:07 MES
NotSolved
05.12.2019 19:24:55 Gast11308
NotSolved

Ansicht des Beitrags:
Von:
MES		 Datum:
05.12.2019 18:20:07		 Views:
1502		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus Textdatei einfügen und transformieren

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:

?
1
2
3
4
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten aus Textdatei einfügen und transformieren
 05.12.2019 18:20:07 MES
NotSolved
05.12.2019 19:24:55 Gast11308
NotSolved