Ei toimi. Hermot meni. En vain tajua miten saisi lista1.listan tallennettua. Tajuatteko te? Jos tajuatte ja kertoisitte olisin erittäin kiitollinen jälleen kerran putkalaisille! ;)
Jotenki tollai.
Open Tiedosto For Output As #1 For i = 1 To List1.UBound Print #1, List1.List(i) Next i Close #1
Kiitos :)
Ideana on siis vain, että tallennetaan listasta rivi kerrallaan. Yhden rivin tekstin saa selville lausekkeella List1.List(i), jossa i on rivin indeksi. Mutta indeksointi alkaa kylläkin nollasta eikä ykkösestä.
Joo oli tossa koodissa hieman muutakin säätöä.. Mutta periaate ainakin tuli ilmi tuosta ;)
Oletan että muutit näin. =) Koska list controllissa ei ole UBoundia, vaan UBound toimnii taulukoissa ja indexoiduissa controlleissa.
Open Tiedosto For Output As #1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next i Close #1
Aihe on jo aika vanha, joten et voi enää vastata siihen.