Moi! Minulla on tekstitiedostossa 10 riviä asiakastietoja tyyliin:
Nimi: Matti Möttönen
Osoite: Pihatie 4
jne.
Miten saan tuotua esim. kahden ensimmäisen rivin tiedot exceliin siten, ettei muut tiedot tule mukana? Lisäksi olisi hyvä, jos rivin alussa oleva "Nimi:" jäisi pois (tulisi pelkkä Matti Möttönen). Olen kokeillut tekstitiedoston tuomista, mutta se tosiaan tuo kaikki tiedot. Kiitos!
Tiedon tuominen tekstitiedostosta
3
1356
Vastaukset
- juhakorkeapudas
Onko rivien määrä sama kaikkien henkilöiden kohdalla? Jos on, niin voit käyttää siihen pelkkää kaavaa.
Tuo tekstit ensin A-sarakkeeseen.
Tee B-sarakkeen 1. soluun kaava (=POISTA.VÄLIT(POIMI.TEKSTI(A1;ETSI(":";A1;1) 1;25))) ja toiseen soluun kaava (=A2).
Jätä kaikki muut solut tyhjäksi ennen seuraavaa nimeä.
Valitse B-sarakkeen kaikki solut joissa ovat vain yhden henkilön tiedot ja vedä alue oikeasta alakulmasta alaspäin, niin kauan, että tulet A-sarakkeen tekstien viimeiselle riville.
Valitse B-sarake -> Kopioi -> Liitä määräten -> Liitä: Arvot. hakee nyt vain asiakkaan nimen ja osoitteen samalle riville ja allekkain aktiiviseen taulukkoon
moduuliin...
Sub HaeTiedosotosta()
'hakee tiedostosta vain nimi ja osoitetiedot allekkain Excelin aktiiviseen taulukkoon
'tiedostorakenne
'Nimi: Matti Meikäläinen
'Osoite: Koulukuja 1
'...
'Nimi: Liisa Teikäläinen
'Osoite: Koulukuja 2
'...
Dim Tiedosto As String
Dim Haku1 As String
Dim Haku2 As String
On Error Resume Next
'muuta polku ja hakusanat oikeaksi
Tiedosto = "C:\kunde\koe.txt"
Haku1 = "Nimi"
Haku2 = "Osoite"
Range("A:B") = ""
Range("A1").Select
Open Tiedosto For Input As #1
While Not EOF(1)
Line Input #1, textline
If InStr(1, textline, Haku1, 1) > 0 Then
' jos oli Nimi: alussa niin tuo 7 merkistä alkaen, korjaa oikeaksi
ActiveCell = Mid(textline, 7)
End If
If InStr(1, textline, Haku2, 1) > 0 Then
' jos oli Osoite: alussa niin tuo 9 merkistä alkaen, korjaa oikeaksi
ActiveCell.Offset(0, 1) = Mid(textline, 9)
ActiveCell.Offset(1, 0).Select
End If
Wend
Close #1
End Sub- Anonyymi
Sana Marin sähköposti osoite
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään
Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää1393860Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa
Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri3412993Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla
Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt91892Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."
Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa91635Oho! Vappu Pimiä teki "röyhkeän" teon - Onko sopivaa paljastaa tämä MasterChef-sarjasta?
Vappu Pimiä on astunut MasterChef Suomi -keittiöön ja liittynyt ohjelman legendaariseen tuomaristoon Helena Puolakan ja41089- 71944
Kaste tulisi tehdä apostolisella tavalla Ap. t. 2:38 mukaan
Apostolit eivät kastaneet kolminaisuuden nimellä vaan Jeesuksen alkuperäisen käskyn mukaisesti: Ap. t. 2:38 Niin Pietar38874- 44784
Kuhmossa rallit alkoi ennen aikojaan
Paettiin polliisia törkeästi? Se tuo rallikiima on näemmä saavuttanu paikalliset tommi mäkiset kiljupäissään auton rat23761- 65751