Ich habe folgendes Makro hier aus dem Forum, dass schreibt die Zeilen aller PRN-Dateien eines Verzeichnis in die Datei Alle.txt.
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
Meine Festplatte besteht aus 2 Partitionen C und D.Problem dass ich habe, wenn die PRN- Dateien auf D gespeichert sind, dann wird nur eine leere TXT- Datei erzeugt. Anders sieht es aus, wenn ich die PRN- Dateien auf C oder einen USB-Stick abspeichere und das Makro laufen lasse, dann habe ich das gewünschte Ergebniss.
Kann mir jemand sagen wo der Haken ist.
Danke im voraus!
MFG Andre