|
Hi an alle,
ich habe ein kleines Problem. Beim Import einer txt Datei haben sich die Vorgaben geändert. Vorher wurde alles durch ";" getrennt und jetzt ist es Tabstop getrennt.
Ich bekomme meinen Code einfach nicht dahingehend modifiziert.
Hat jemand einer Idee?
Sub Import()
Dim SourcePath As String
Dim FFnr As Integer
Dim TxtZeile As String
Dim AnzZe As Long, AnzSp As Integer, i As Long
Dim sName As String
sName = "Speicherort" & Format(Date, "ddmmyyyy") & ".txt"
SourcePath = sName
FFnr = FreeFile
Open SourcePath For Input As #FFnr
Do While Not EOF(FFnr) 'Zeilenzahl feststellen
Line Input #FFnr, TxtZeile
AnzZe = AnzZe + 1
Loop
Close #FFnr
FFnr = FreeFile
Open SourcePath For Input As #FFnr
ReDim aZeilen(AnzZe)
Do While Not EOF(FFnr) 'Zeilenzahl feststellen
For i = 1 To AnzZe
Line Input #FFnr, TxtZeile
If i = 1 Then AnzSp = UBound(Split(TxtZeile, ";")) + 1
Range(Cells(i, 1), Cells(i, AnzSp)) = Split(TxtZeile, ";")
Next i
Loop
Close #FFnr
End Sub
|