Import txt-Dateiname gleich Arbeitsmappe
08.05.2016 15:05:35
Alex
kann mir jemand evtl. weiterhelfen ?
ich habe in einem Pfad mehrere Txt-Datein nach folgenden Muster (siehe link)
Diese möchte ich gern in eine excel Arbeitsmappe mit der gleichen Bezeichnung wie die TXT-Datei importieren. sprich import aus Pfad Hase_123.txt in Sheet Hase_123 trennzeichen semikomma). Anschließend soll die Datei aus dem Pfad gelöscht werden, und bei dem nächsten import überschrieben werden.
https://www.herber.de/bbs/user/105446.txt
als Ansatz habe ich das mal gefunden:
Nur bekomme ich das mit dem vergleichen txt-Dateiname mit Bezeichnung Arbeitsmappe nicht hin.
Vielen Dank im Voraus. :-)
Sub all_import()
Dim strFile As String
Dim strData As String
Dim strDaten, arrTmp
Const cstrFolder As String = "F:\HTM\Protokolle\Eingespielt\" 'anpassen
Worksheets("BG_Freigabe").Select
Application.ScreenUpdating = False
strFile = Dir(cstrFolder & "BG_Frei*.txt")
With Worksheets("BG_Freigabe") 'anpassen
Do While strFile ""
Open cstrFolder & strFile For Input As #1
Do While Not EOF(1)
Line Input #1, strData
.Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = strData
Loop
Close #1
Kill cstrFolder & strFile 'Datei löschen
strFile = Dir
Loop
End With
End Sub
