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
903
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
Miksei voitaisi vaan puhua asiat selväksi?
Minulla on ollut niin kova ikävä sinua, etten oikein edes löydä sanoja kuvaamaan sitä. Tuntuu kuin jokainen hetki ilman501643Sunnuntai terveiset kaivatulle
Maa on vielä valkoinen vaikka vappu lähestyy, otetaan pitkästä aikaa pyhä terveiset kaivatullesi tähän ketjuun !!761365- 321189
Olen päivä päivältä vain varmempi siitä että rakastan sinua
Onhan se tällä tuntemisen asteella jokseenkin outoa, mutta olen outo ja tunne on tunne. 😊891104- 891006
Verovähennysten poisto syö veronkevennykset pieni- ja keskituloisilta
Kokoomuslaiset ja perussuomalaiset kansanedustajat jakavat kilvan postauksia, jossa kerrotaan miten kaikkien työssäkäyvi1581004Ai miehillä ei ole varaa maksaa
Treffejä naiselle johon on ihastunut? Ihanko totta dusty miehet? Tekosyy. Haluatko laittaa 50/50 kaikki kulut parisuhtee191944Olet mielessäni
viimeisenä illalla ja ensimmäisenä aamulla. Ihastuin sinuun enkä voi tunteilleni mitään. Jos uskaltaisin, tunnustaisin s20871Hei rakas mies. Olisi yksi kysymys, mielellään rehellinen vastaus edes täällä..
Mitä sinä minusta haluat?71834- 82831