Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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) Ac