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

617

    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. Vakava rikosepäily Seinäjoella

      Ilkka ei taaskaan tiedä mitään mutta hesalaiset kertoo: https://www.is.fi/kotimaa/art-2000010959325.html
      Seinäjoki
      41
      2937
    2. Olet saanut kyllä tunnisteita

      Itsestäsi ja meistä. Mutta mikä siinä on, ettet kirjoita etkä anna itsestäsi merkkejä. Ellei ole kysymys siitä, mikä ens
      Ikävä
      34
      2726
    3. Mies pakko olla rehellinen

      Kiinnostuin koska olet tosi komea ja sulla on ihana puheääni. Olen aika pinnallinen sitten kai... 😓 kyllä olet tosi rau
      Ikävä
      25
      2627
    4. Mitä on woketus?

      Täälläkin hoetaan usein sanaa "woketus". Mitä se tarkalleen ottaen tarkoittaa? Ilmeisesti sen käyttäjät ymmärtävät sen k
      Maailman menoa
      436
      2478
    5. Ikääntyvien tilanne Suomessa on järkyttävä - Hoivakotiin ei pääse, vaan joutuu selviytymään yksin

      Ikääntyvien tilanne Suomessa on järkyttävä… Hoivakoteihin sijoittamista vältellään, koska hoito on kallista ja hyvinvoin
      Maailman menoa
      151
      1827
    6. Oletko jo luovuttanut?

      Joko olet luovuttanut kaivatun suhteen ja hyväksynyt, että mitään ei tule?
      Ikävä
      143
      1818
    7. Kristo Salminen, 52, riisuutui - Paljasti Iso-Börjen tatuoinnit - Somekansan tuomio yksimielinen

      Iso-Börje, tuo iso, tatuoitu, yltiöromanttinen ja aika kuuma rikollispomo - vai mitä mieltä sinä olet? Lue lisää ja kat
      Tv-sarjat
      24
      1375
    8. Hirvenmaitojuusto

      Olin Prisman juustohyllyllä kun vierestä alkoi kuulua kamala paapatus. Siinä oli vanha muori, joka räyhäsi raivokkaasti,
      Ruoka ja juoma
      4
      1222
    9. Vanhentunut runsaasti.

      Ei hyvä juttu. Mieheltä pötkylänaiselle.
      Ikävä
      74
      1119
    10. Kerro mulle miksi juuri me

      Kohdattiin? Tässä elämässä. Vaikka ollaan edelleen tutut tuntemattomat. Se on omituinen tunne.
      Ikävä
      67
      1027
    Aihe