Tiedon tuominen tekstitiedostosta

Excel-aloittelija

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!

3

1310

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Kylläpä on nautinnollista taas tämä palstan vassari valitus!

      Lähes jokainen avaus on vassareiden kitinää ja valitusta. Eikö se tarkoitakin, että silloin asiat menee maassamme parem
      Maailman menoa
      30
      2592
    2. Yksi kuoli nokkakolarissa

      Asiasta YLEn verkkosivuilla uutinen klo 23.02. Oliko itsemurha?
      Oulainen
      11
      1262
    3. Helvetistä ei ole paluuta

      Kun ihminen laskeutuu kuolleiden maailmaan, kauhujen valtakuntaan ja tuonelan ovet sulkeutuu kiinni, se on karu tunne ku
      Idän uskonnot
      333
      1002
    4. Mikä on kaivattusi ammatti

      entäpä sinun? 💶
      Ikävä
      44
      871
    5. Terveisiä vanhemmalle

      J-miehelle. Ehkä nähdään vielä 😉
      Ikävä
      45
      844
    6. Järjetön Topi-ilta

      Lisää tappiota konkurssipesälle. Miten voi olla mahdollidta , että annetaan järjestää tämä. Sorsakoski pyörii haudassaan
      Ähtäri
      20
      829
    7. Miksi nainen nukut huonosti

      Onko sulla jotakin huolia, vai jotakin miestäkö mietit? Vai tunnemaailmassako velloo? Ajatteletko koskaan minua? Paljo
      Ikävä
      61
      754
    8. Niin siinä Kävi

      Ettemme koskaan saaneet toisiamme
      Ikävä
      44
      730
    9. Halutaan toisiamme

      Mutta se on Salaisuus❤️
      Intohimo
      44
      716
    10. Jos olisit kaivattusi

      Kanssa kahdestaan samassa tilassa niin miten kävisi
      Ikävä
      46
      646
    Aihe