Miten saisin luettua tiedostostaa asiakkaan yhteystiedot( Etu- ja sukunimi, lähiosoite, postinumero ja postitoimipaikka) Excelin tauluun. Tiedot voisi tuoda InputBox:iin antaman postitoimipaikan kanssa.
Tiedostosta lukeminen
Elisabet
1501
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
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