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

903

    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. 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 ilman
      Ikävä
      50
      1643
    2. Sunnuntai terveiset kaivatulle

      Maa on vielä valkoinen vaikka vappu lähestyy, otetaan pitkästä aikaa pyhä terveiset kaivatullesi tähän ketjuun !!
      Ikävä
      76
      1365
    3. Kaupan työtekijä

      Kyllä on pahaa katsottavaa kun myyjällä on purtu kaula, hyvin epäsoveliasta
      Kuhmo
      32
      1189
    4. 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. 😊
      Ikävä
      89
      1104
    5. Oletko koskaan suuttunut jostain kaivatullesi?

      Mitä hän teki tai mitä tapahtui, mistä suutuit?
      Ikävä
      89
      1006
    6. Verovähennysten poisto syö veronkevennykset pieni- ja keskituloisilta

      Kokoomuslaiset ja perussuomalaiset kansanedustajat jakavat kilvan postauksia, jossa kerrotaan miten kaikkien työssäkäyvi
      Maailman menoa
      158
      1004
    7. Ai miehillä ei ole varaa maksaa

      Treffejä naiselle johon on ihastunut? Ihanko totta dusty miehet? Tekosyy. Haluatko laittaa 50/50 kaikki kulut parisuhtee
      Ikävä
      191
      944
    8. Olet mielessäni

      viimeisenä illalla ja ensimmäisenä aamulla. Ihastuin sinuun enkä voi tunteilleni mitään. Jos uskaltaisin, tunnustaisin s
      Ikävä
      20
      871
    9. 71
      834
    10. Olen paremman näköinen kuin sinä

      Jos aletaan sille tielle mies.
      Ikävä
      82
      831
    Aihe