Import txt alle aus Pfad und anschließend löschen
21.02.2016 18:13:42
Alex
vielleicht könnt mir mir weiter helfen?
Ich habe in einem Pfad mit lauter "TXT-Dateien" alle fangen mit dem Namen AUS_Frei*.txt an, diese möchte ich in folgenden Sheet "Auswertung" kopieren (Sheet Auswertung behinhaltet schon Daten) sprich er soll die nächst freie Zeile suchen und kopieren in der ersten Spalte "A", die importiere Datei soll er mir anschließend löschen. Ich habe da mal was angefangen, aber komm echt nicht mehr weiter.
Sub tt()
Dim strFile As String
Dim strDaten, arrTmp
Const cstrFolder As String = "C:\test\" 'anpassen
Application.ScreenUpdating = False
strFile = Dir(cstrFolder & "AUS_Frei*.txt")
Do While strFile ""
Open cstrFolder & strFile For Input As #1
Close #1
Kill cstrFolder & strFile 'Datei löschen
strFile = Dir
Loop
End Sub