Daten aus Textdatei in Textfenster e. UF -VBA-

Hallo*
Ich hatte vor geraumer Zeit ähnliche Frage an das Forum gerichtet, mich aber wohl lt. Rückmeldung missverständlich ausgedrückt. Somit erneuter Versuch:
In einer Textdatei (Laufwerk C, Temp) befinden sich Daten, die teilweise für das Anlegen von Datensätzen in einer Excel-Mappe benötigt werden.- Die Textdatei selbst wird laufend (im Rahmen einer Vernetzung) über Unix wieder geändert. - Unter anderem benötige ich z.B. Name, Vorname, Geburtsdatum und Anschrift aus der Textdatei. Diese Daten sollen möglichst wiederum in jeweils dafür bestimmte Textfester importiert werden, damit noch weitere Daten innerhalb der UF manuell ergänzt werden können. Die dann vollständigen Datensätze sollen dann innerhalb der Excel-Mappe unter verschiedene Tabellen abgelegt werden.
Mein Anliegen nun:
Ist es möglich, einzelne Daten aus einer Textdatei (Auszug siehe unten) gesondert in verschiedene Textfenster einer UF zu importieren? (Die weiteren Wege des Abspeicherns etc. sind dabei gelöst)Hintergrund soll übrigens sein, dass ich mir hierdurch viel Tipperei ersparen kann, da die benötigten Daten sich doch bereits in der Textdatei befinden.
Bsp.: Textfenster Name: NAME^ Textfenster Vorname: VORNAME^ etc.
Wäre wiederum für Eure Mitwirkung sehr dankbar.
Gruß und schon allen ein schönes Wochenende.
Wolfgang Berger
Hier ein Auszug aus der Textdatei:
NAME^VORNAME^GEBDAT^STRASSE^Postleitzahl, Wohnort (etc.)
P.S.
Die vorliegende Textdatei wird hier für die Serienbrieffunktion in WORD verwandt.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Textdatei_Lesen() Dim arr() As String Dim icounter As Integer, icountD As Integer Dim sSource As String, sTxt As String, sPath As String, sTarget as String sPath = "C:\TEMP\" sSource ="Meine_Datei.txt" sTarget = sPath & sSource With Application.FileSearch .LookIn = sPath .FileName = sSource .Execute If .FoundFiles.Count = 0 Then MsgBox "Datei im angegebenen Verzeichnis nicht gefunden !!!" Exit Sub End If Close ReDim arr(1 To 3) As String Open sTarget For Input As #1 Do Until EOF(1) Line Input #1, sTxt icounter = icounter + 1 ReDim Preserve arr(1 To icounter) As String arr(icounter) = sTxt Loop Close ' hier kannst Du in arr() die entsprechende Zeile suchen und die Textabschnitte ' Deinen Textfeldern zuweisen. End With End Sub

Hallo Wolfgang
Wie sieht denn in dieser TXT-Datei so eine Zeile mit Einträgen aus?
Du schreibst von 300 Feldern, von denen 15 benötigt werden.
Welcher Feldtrenner wird in der Datei verwendet?
Hier mal ein Bsp, welches nur als Ansatz dienen soll, und in dem davon ausgegangen wird, dass der Feldtrenner ein Komma ist "," und dass die ersten 5 Felder die benötigten sind.


Sub txtAuslesen()
Dim strVName As String
Dim strNName As String
Dim strStrase As String
Dim strPLZ As String
Dim strOrt As String
Dim iZeile As Integer
iZeile = 1
Open "C:\Temp\DeineTXT.txt" for Input As #1
While Not Eof(1)
Input #1, strNName, strVName, strStrasse, strPLZ, strOrt
Sheets(1).Range("A" & iZeile").Value = strNName
Sheets(1).Range("B" & iZeile").Value = strVName
Sheets(1).Range("C" & iZeile").Value = strStrasse
Sheets(1).Range("D" & iZeile").Value = strPLZ
Sheets(1).Range("E" & iZeile").Value = strOrt
iZeile = iZeile + 1
Loop
Close
End Sub

Erklärung:
In diesem Bsp wird die erste Zeile aus der Datei "C:\Temp\DeineTXT.txt" mit den Feldern Nachname, Vorname, Strasse, PLZ und Ort in die verwendeten Variablen eingelesen.
Danach werden, beginnend mit A1 - E1 die Inhalte der Variablen der eben genannten Zellen zugewiesen.
Nun wird die nächste Zeile aus der Datei eingelesen und wieder an die Zellen weitergegeben. Die Zellen haben sich in A2 - E2 geändert.
So geht das weiter, bis die letzte Zeile in der Datei erreicht ist.
Konnte ich hiermit helfen?
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Daten aus Textdatei in Textfenster e. UF -VBA-

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Textdatei in Textfenster e. UF -VBA-

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread