Datenimport aus .txt-Datei
03.01.2008 10:54:19
Wolfgang
unter Recherche konnte ich untenstehenen Code entdecken, den ich schon versucht habe, anzupassen - allerdings ohne Erfolg. Ich würde gerne erreichen, dass der Inhalt der Textdatei mit den genannten Überschriften in die jeweilige Spalte -ab Zeile 3- importiert wird. Ich habe untenstehend ebenfalls einmal eine Mustertextdatei beigefügt. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Hier zunächst die Textdatei:
https://www.herber.de/bbs/user/48766.txt
und hier der bisherige Code, in dem ich leider verschiedene Dinge nicht deuten kann
(was bedeutet hier z.B. startpos?):
Sub Text_Import()
Dim spalte As Integer
Dim zeile As Integer
Dim startpos As Integer
'StartVerzeichnis - bitte anpassen
ChDrive "c:\"
ChDir "\Dokumente und Einstellungen\Wolfgang\Desktop"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename _
("alle Dateien (*.txt), *.txt")
If sFile False Then
Close
Open sFile For Input As #1
zeile = 3
Do While Not EOF(1)
Line Input #1, strtxt
spalte = 0
If UCase(Left(strtxt, 5)) = UCase("AS_Name") Then
spalte = 1
startpos = 8
End If
If UCase(Left(strtxt, 7)) = UCase("AS_Vorname") Then
spalte = 2
startpos = 10
End If
If UCase(Left(strtxt, 7)) = UCase("HAUS_AS_Straße") Then
spalte = 5
startpos = 10
End If
'schön wäre, hier auch HAUS_AS_Ort und HAUS_AS_Ortsteil in Spalte 6 eingefügt zu _
bekommen.
If UCase(Left(strtxt, 7)) = UCase("HAUS_AS_PLZ") Then
spalte = 6
startpos = 10
End If
If UCase(Left(strtxt, 7)) = UCase("AS_Liefernr") Then
spalte = 9
startpos = 10
End If
If spalte > 0 Then Cells(zeile, spalte).Value = Mid(strtxt, startpos)
If strtxt = "|" Then zeile = zeile + 1
Loop
Close
End If
End Sub