gezielter Datenimport aus .txt
03.01.2008 20:44:00
Wolfgang
ich habe noch weiterhin unter Recherche "gewühlt" und auch getestet. Der untenstehende Code spricht eine Textdatei an und importiert zumindest schon einmal die erforderlichen Überschriften. Was müßte ich verändern, damit die jeweiligen Daten der Textdatei, die zu diesen Überschriften gehören, ebenfalls importiert werden. Schön wäre dabei, wenn z.B PLZ, Wohnort und ggfs. Ortsteil in der einen Spalte stehen könnten. Gleiches gilt für Tel.-Vorwahl und Tel.-Nr.; Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
https://www.herber.de/bbs/user/48766.txt
Sub ImportValuesFromTextfile()
Dim strFile As String, strValues As String
Dim varValues As Variant
Dim intIndex As Integer
' Datei
strFile = "C:\Dokumente und Einstellungen\Wolfgang\Desktop\*.txt" ' Textdatei - Anpassen
' Textdatei öffnen
Open strFile For Input As #1
' Zeile auslesen
Line Input #1, strValues
' Textdatei schliessen
Close #1
' Werte dem Array zuweisen
varValues = Split(strValues, "|")
' Werte aus Array in Spalte "A" ab Zeile 1 einlesen
'For intIndex = 0 To UBound(varValues)
' Cells(intIndex + 1, 1) = varValues(intIndex)
'Next
' Oder Werte in bestimmte Zellen schreiben
'Name
Range("A3") = varValues(3)
'Vorname
Range("B3") = varValues(4)
'Geburtsdatum
Range("C3") = varValues(6)
'Strasse,Hausnr
Range("E3") = varValues(12)
'PLZ, Wohnort, Ortsteil
Range("F3") = varValues(16) 'hier sollten 16,14 + 15 in der Reihenfolge erscheinen (beginnt ab _
0)
'Lieferantennummer
Range("I3") = varValues(1)
'Orgzeichen
Range("J3") = varValues(39) 'in der Folge sollte hier noch 40 erscheinen, dazwischen ein "-"
'Anrede
Range("L3") = varValues(2)
'Telefon
Range("M3") = varValues(9) 'auch hier wäre schön, wenn in der Folge noch 10 mit " " dazwischen
End Sub