ich stehe vor folgender Herausforderung. Ich habe einem definierten Verzeichnis viele Textdateien mit einer bestimmten Namenstruktur.txt (z.B. XXXYYY_1.txt) abliegen. Ein eindeutiger Name ist in der Zelle H10 als Teil des Dateinamens hinterlegt (z.B, YYY). Über einen Button möchte ich das Vorbelegte Verzeichnis öffnen und möglichst den kompletten Dateinamen schon vorbelegt haben - in dem Bsp. "XXXYYY_1.txt". Wenn ich die Datei dann öffne, soll sie mir im geöffneten EXCEL-Sheet in Zelle B7 eingefügt werden.
Somit sollte ein mühevolles Suchen in einer Ablage - Öffnen der Textdatei im Editor und Inhaltmarkieren, Kopieren und Einfügen ins Excel und Schließen der Textdatei verbessert werden. Der Inhalt sollte dann in B8/B9/B10 usw weitergeführt werden - also nicht alles in eine Zelle :-).
Auf Umlaute wie ä und ü, ö sollte geachtet werden - ich glaub da heißt der Standard UTF-8
Kann mir hier eventuell jemand helfen Sollte etwas unklar beschrieben sein, dann gerne noch einmal melden
Viele Grüße
Christian
PS.: Anbei schon mal der erste Versuch, der aber nur tlw. funktioniert und das Problem mit den Umlauten hat:
Private Sub CommandButton6_Click()
TxtEinlesen ("P:\Ablage\XXXYYY_1.txt")
End Sub
Private Function TxtEinlesen(Dateipfad As String)
Dim Fnr As Long, TxtZeile As Variant, AusgabeArr As Variant, i As Long
If Dir(Dateipfad) "" Then
Fnr = FreeFile
Open Dateipfad For Input As #Fnr
TxtZeile = Split(Input(LOF(Fnr), #Fnr), vbCrLf)
Close #Fnr
ReDim AusgabeArr(1 To UBound(TxtZeile) + 1, 1 To 1)
For i = LBound(TxtZeile) To UBound(TxtZeile)
AusgabeArr(i + 1, 1) = TxtZeile(i)
Next i
Columns(1).ClearContents
Range("B7").Resize(UBound(TxtZeile) + 1) = AusgabeArr
End If
End Function