Prikazi cijelu temu 11.02.2018 16:36
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: Iscitavajne iz CSV
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub OpenCsvFile()
  2.     Dim FilePath As String
  3.     FilePath = "C:\csvfile.csv"
  4.     Open FilePath For Input As #1
  5.         redBrojac = 0
  6.         Do Until EOF(1)
  7.             Line Input #1, linijaFile
  8.             linijaPodaci = Split(linijaFile, ",")
  9.             If redBrojac > 2 And redBrojac < 6 Then 'ucitaj od 3 do 5 reda
  10.                 'samo 2 i 3 kolonu
  11.                'ActiveCell.Offset(redBrojac, 0).Value = linijaPodaci(2)
  12.                ActiveCell.Offset(redBrojac, 1).Value = linijaPodaci(1)
  13.                 ActiveCell.Offset(redBrojac, 2).Value = linijaPodaci(0)
  14.             End If
  15.             redBrojac = redBrojac + 1
  16.         Loop
  17.     Close #1
  18. End Sub

csvFile.csv
PreuzmiIzvorni kôd (Text):
  1. Voce, Jabuka, 9780349114903
  2. Voce, Kruska, 9780349108858
  3. Voce, Sljiva, 9781841496030
  4. Voce, Tresnja, 9781841497228
  5. Povrce, Kupus, 1841492191
  6. Povrce, Mrkva, 1841492086
  7. Cvijece, Ruza, 9780553818109
  8. Cvijece, Tulipan, 9780553815870

zivot je moja domovina.
Ovaj post je ureden 2 puta. Posljednja izmjena 11.02.2018 16:46 od strane Avko.