Mun pitäis tehdä tämmönen tehtävä mutta en osaa.
Voisko joku viisaampi auttaa.
Pitäis tehdä exceliin vba sovellus jonka avulla tiedostosta joka on tallennettu levykkeelle asiakkaat.txt saataisiin asiakkaan yhteystiedot.
(eli etunimi, sukunimi, postinumero ja postitoimipaikka)
Mukaan otetaan vain ne tietueet jotka täsmää käyttäjän inputbox:iin)antaman postitoimipaikan kanssa.
Toivottavasti joku osaa auttaa!
Voisko joku viisaampi auttaa.
Pitäis tehdä exceliin vba sovellus jonka avulla tiedostosta joka on tallennettu levykkeelle asiakkaat.txt saataisiin asiakkaan yhteystiedot.
(eli etunimi, sukunimi, postinumero ja postitoimipaikka)
Mukaan otetaan vain ne tietueet jotka täsmää käyttäjän inputbox:iin)antaman postitoimipaikan kanssa.
Toivottavasti joku osaa auttaa!
Vastaukset 1
Vanhimmat
Hakee tiedot sarakkaisiin A-D ja tyhjentää aluksi sarakkeet.Muuta itselle sopivaksi.
Private Sub Hae(Postinumero As Variant)
Dim iInputFilenum As Integer
Dim sLineData As String
Dim a As Variant
On Error GoTo virhe
Range("A1:D1000") = ""
Range("A1").Select
iInputFilenum = FreeFile
Open "A:\Asiakkaat.txt" For Input As #iInputFilenum
Do Until EOF(iInputFilenum)
Line Input #iInputFilenum, sLineData
a = Split(sLineData, ",")
If a(2) = Postinumero Then
ActiveCell = a(0)
ActiveCell.Offset(0, 1) = a(1)
ActiveCell.Offset(0, 2) = a(2)
ActiveCell.Offset(0, 3) = a(3)
ActiveCell.Offset(1, 0).Select
End If
Loop
Close
Exit Sub
virhe:
On Error Resume Next
Close #iInputFilenum
End Sub
Sub Haku()
Hae InputBox("Haku postinumerolla")
End Sub