Leerzeilen in best. Situationen
29.04.2021 10:05:25
HolySchimmel
Ich habe die folgende Thematik, bei der ich gerade nicht 100% weiß wie ich weiterkomme. Und zwar habe ich das folgende Makro, welches Textdateien ausliest und die Daten ab einer bestimmten Spalte in Excel einfügt. Problem ist jetzt das folgende: normal wird für jeden Tag eine Textdatei erzeugt (so eine Art Protokoll des Tages), es kann in Sonderfällen aber auch sein, dass es 2 Protokolle für einen Tag gibt. Der Übersichtlichkeit halber würde ich gerne Pro Tag 2 Zeilen haben. D.h. wenn es 2 Textdateien für den Tag gibt sollen diese untereinander stehen, wenn es nur eine Datei gibt, soll nach den Daten dieser Zeile eine Leerzeile eingefügt werden bevor die nächsten Daten kommen. Das Datum der jeweiligen Protokolldatei ist in der zweiten Zeile der Textdatei eingetragen (landet bei mir also in Spalte 18, da die ersten 16 Spalten nicht beschrieben werden.
Ich hoffe die Erklärung war hilfreich und es hat wer eine Idee!
Bespiel einer solchen Textdatei: https://www.herber.de/bbs/user/145846.txt
Hier das Makro:
Option Explicit
Sub HoleFiles()
Dim myFile As String
Dim myPath As String
myPath = "C:\Test\test" & "\"
myFile = Dir(myPath & "\*.txt")
Do While myFile ""
myFile = Dir
Loop
End Sub