Mit folgenden Makro lese ich alle prn Dateien einen Verzeichnisses in eine Datei Namens Alle.txt mit dem Namen der jeweiligen PRN Datei ein.
Mit Excel 2003 funktioniert es wunderbar aber nicht in 2007.
Ich habe die Zeile fett hinterlegt, wo das Makro hängen bleibt.
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 'hier hängt es bei Excel 2007
.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
Kann mir bitte jemand helfen, dass es auch mit Excel 2007 funktioniert.
Vielen Dank im voraus!
MFG Andre