Minulla on usea (>300) .txt-tiedosto, jotka haluaisin taulukkoon. Kaikki tiedostot ovat samassa formaatissa:
1.rivillä nimi
2.rivillä "tieto 1"
3.rivillä "tieto 2"
jne....(n.20 riviä dataa)
Miten saan .txt tiedostot ajettua excel taulukkoon siten että 1.sarakkeella on nimet, toisella "tieto 2" jne....
1.rivillä nimi
2.rivillä "tieto 1"
3.rivillä "tieto 2"
jne....(n.20 riviä dataa)
Miten saan .txt tiedostot ajettua excel taulukkoon siten että 1.sarakkeella on nimet, toisella "tieto 2" jne....
Vastaukset 4
Vanhimmat
Tee hommaa varten makro ja aja se tarvittavan monta kertaa. Se on varmasti tuollaista yksittäistä tapausta varten kaikkein kustannustehokkain ratkaisu.
Ymmärsinkö oikein että sulla on ne tiedot riveittäin mutta haluaisit ne sarakkeisiin?
Mikäli ne on riveillä, ne olisi hyvä saada ensin yhdelle riville, vaikka kopioimalla wordiin ja siellä korvaamalla rivin päässä oleva kappalemerkki vaikka välilyönnillä tai paremminkin vaikka puolipisteellä.
Sittenolisi helpompi siirtää exceliin.
Sub Kansiontiedostot()
rivi = 1
kansio = "C:\Temp"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fd = fs.GetFolder(kansio)
Set vileet = fd.Files
For Each tiedosto In vileet
sarake = 1
Set a = fs.OpenTextFile(tiedosto)
Do Until a.AtEndofStream
Cells(rivi, sarake) = a.ReadLine
sarake = sarake 1
Loop
rivi = rivi 1
a.Close
Next
End Sub
TÄTÄ JUURI HAIN!!! KIITOS!