Tiedostosta lukeminen

jos .txt muotoa
Matti Meikäläinen,Osoite1,00100,Helsinki
koodi moduuliin

Sub Testi()
Tuo ("C:\Asiakkaat2.txt")
End Sub

Sub Tuo(Polku As String)
Dim Postipaikka As String
Dim Vapaa As Integer
Dim RiviTieto As String
Dim a As Variant
Dim vika As Integer
On Error GoTo virhe

Postipaikka = Application.InputBox("Anna postipaikka")

Application.ScreenUpdating = False
vika = Range("A65536").End(xlUp).Row 1
Range("A2:D" & vika) = ""
Range("A2").Select
Vapaa = FreeFile

Open Polku For Input As Vapaa
Do While Not EOF(Vapaa)
Line Input #Vapaa, RiviTieto
a = Split(RiviTieto, ",")
If Trim(UCase(a(3))) = Trim(UCase(Postipaikka)) Then
ActiveCell = Trim(a(0))
ActiveCell.Offset(0, 1) = Trim(a(1))
ActiveCell.Offset(0, 2) = Trim(a(2))
ActiveCell.Offset(0, 3) = Trim(a(3))
ActiveCell.Offset(1, 0).Select
End If
Loop
Columns("A:D").EntireColumn.AutoFit
virhe:
Application.ScreenUpdating = True
Close Vapaa

End Sub