Avko
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb
Predmet:
Re: Iscitavajne iz CSV
Preuzmi
Izvorni kôd (Visual Basic):
Sub
OpenCsvFile()
Dim
FilePath
As
String
FilePath =
"C:\csvfile.csv"
Open
FilePath
For
Input
As
#1
redBrojac = 0
Do
Until
EOF(1)
Line
Input
#1, linijaFile
linijaPodaci = Split(linijaFile,
","
)
If
redBrojac > 2
And
redBrojac < 6
Then
'ucitaj od 3 do 5 reda
'samo 2 i 3 kolonu
'ActiveCell.Offset(redBrojac, 0).Value = linijaPodaci(2)
ActiveCell.Offset(redBrojac, 1).Value = linijaPodaci(1)
ActiveCell.Offset(redBrojac, 2).Value = linijaPodaci(0)
End
If
redBrojac = redBrojac + 1
Loop
Close
#1
End
Sub
csvFile.csv
Preuzmi
Izvorni kôd (Text):
Voce, Jabuka, 9780349114903
Voce, Kruska, 9780349108858
Voce, Sljiva, 9781841496030
Voce, Tresnja, 9781841497228
Povrce, Kupus, 1841492191
Povrce, Mrkva, 1841492086
Cvijece, Ruza, 9780553818109
Cvijece, Tulipan, 9780553815870
zivot je moja domovina.
Ovaj post je ureden
2
puta. Posljednja izmjena 11.02.2018 17:46 od strane Avko.