PRN Dateien in eine TXT Datei (Tipp von fsc)
28.03.2007 13:58:07
fsc)
mit folgendem Makro lese ich alle PRN-Dateien in eine einzige TXT-Datei ein und speicher diese im selben Verzeichnis. Hierbei wird noch der Name der jeweiligen PRN-Datei an das Textende gestellt.
Diesen Code ist von fsc.
Sub PRNnachALLE()
'Erstellt unter Excel 2003
'Schreibt die Zeilen aller PRN-Dateien eines Verzeichnis in die Datei Alle.txt
Dim PfadPNR As String, PfadAktuell As String, Dummy, Datei
'Pfad der PNR-Dateien wählen
PfadAktuell = VBA.CurDir
Dummy = Application.GetOpenFilename(Filefilter:="PRN-Datei (*.PRN),*.PRN", Title:="Bitte PRN- _
_
Datei im Zielordner auswählen")
If Dummy = False Then Exit Sub
PfadPNR = VBA.CurDir
VBA.ChDir PfadAktuell
Open PfadPNR & "\Alle.txt" For Output As #1
With Application.FileSearch
.LookIn = PfadPNR
.Filename = "*.PRN"
.Execute
'Daten aus Dateien nach Alle.txt schreiben
For Each Datei In .FoundFiles
Open Datei For Input As #2
Do Until EOF(2)
Line Input #2, Dummy
Print #1, Dummy
Loop
Close #2
'Dateinamen ohne Endung in Datei schreiben
Dummy = Right(Datei, Len(Datei) - InStrRev(Datei, "\"))
Print #1, Left(Dummy, Len(Dummy) - 4)
Next
End With
Close #1
End Sub
Hier sind 2 Beispiel Dateien (musste sie als txt umbenennen, um sie hochzuladen)
https://www.herber.de/bbs/user/41463.txt
https://www.herber.de/bbs/user/41464.txt
Und so sieht das gewünschte Ergebnis aus: https://www.herber.de/bbs/user/41465.txt
Problem ist, dass eine leere TXT-Datei erzeugt wird, sobald sich die PRN-Dateien lokal befinden. Sind die TXT-Dateien auf einem Laufwerk oder USB Stick, dann funktioniert alles wie gewünscht.
Kann mir bitte jemand sagen, woran das liegt.
MFG
Andre