Textdatei in Excel importieren,

[wavemaster]

Hallo zusammen,
das improtieren einer TXT datei bekomme Ich hin das stellt nicht das Problem dar.

Meine Frage wäre ist es möglich:

1. ca 30 TXT Dateien auf einmal zu importieren
   
2. aus den einzelnen TXT Dateien sollen folgende Spalten  wie folgt übernommen werden
   
3. Spalte a = Datum, Spalte B +C+D+G+H als Text und alle anderen Spalten sollten gelöscht werden.
   
4. Was auch noch Toll wäre wenn die Überschriften ergänzt werden könnten ( TAB 20240315  gelb hinterlegt)
   

Habe mir hier schon ein paar Beispiele angeschaut jedoch nichts vergleichbares gefunden.
habe unten eine Musterdatei angehängt.
 Im TAB 20240315 ist der Endzustand den Ich erreichen möchte, im TAB Test 1 sind die Rohdaten. KAnn die Text Datei nicht hochladen ????

wird nicht so einfach gehen,

trotzdem vorab an alle die sich bemühen das ganze zu verstehen ein großes Dankeschön

[DeltaX]

Informationen zu Power Query in Excel - Microsoft-Support

[wavemaster]

DAnke für den Hinweiß,
ich möchte jedoch jede Text DAtei einzeln in einem TAb in einer Excel Mappe haben geht das auch mit Query. Habe noch nie damit gearbeitet.

[shift-del]

ich möchte jedoch jede Text DAtei einzeln in einem TAb in einer Excel Mappe haben

Warum?

[Ralf A]

ich möchte jedoch jede Text DAtei einzeln in einem TAb in einer Excel Mappe haben geht das auch mit Query. Habe noch nie damit gearbeitet.

Hi,

geht. Speichere Deine txt Datei als zip, dann kannst Du sie hier auch hochladen.

[Fennek]

Hallo,

hier ein Code von snb:

Code:

Sub M_snb()
  With Application.FileDialog(1)
    If .Show Then ThisWorkbook.Sheets.Add , ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count), , .SelectedItems(1)
  End With
End Sub

mfg

[wavemaster]

Danke Fennek,
also der VBA Code funktioniert super. Es kann jedoch nur eine TXT Datei abgerufen werden.

Und nur alle Daten also nicht selektiert.

Hilft mir im ersten Moment jedoch optimal, viel weniger geklicke.

Danke

---

Hallo Ralf anbei die zip

---

Hallo shift del,
hier handelt es sich um Daten der Heizug. Also Temperaturen mit Datum und Uhrzeit , daher jede TXT Datei als extra TAB in einer Mappe.

Habe die zip hochgeladen.

Der VBA Code von Fennek funktioniert soweit. Ist dieser mit meinen Fragen ausbaufähig?

[shift-del]

hier handelt es sich um Daten der Heizug. Also Temperaturen mit Datum und Uhrzeit , daher jede TXT Datei als extra TAB in einer Mappe.

Tolle Erklärung.
Jede Datei in ein eigenes Blatt, weil sie Zeitstempel und Temperaturwerte enthält.

[wavemaster]

Hallo shift del,
soll das sarkastisch gemeint sein.
Die Tagesauswertung hat 1441 Zeilen. und es gibt für jeden Tag  ein solches Blatt.
Daher eine Ansicht pro Tag in einem Tab.

[snb]

Etwas selbst recherchieren:

Code:

Sub M_snb()
  With Application.FileDialog(1)
    .multiselect = True
    If .Show Then
      for j = 1 to .selecteditems.count
        ThisWorkbook.Sheets.Add , ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count), , .SelectedItems(j)
      next
    end if
  End With
End Sub