sub ucitajDatoteku()
 'ekstenzija
    Dim prihvaceneEkstenzije As String
    prihvaceneEkstenzije = "ekstenzija xlsx (*.xlsx), *.xlsx,"
    
    'otvori datoteku
    
    FileToOpen = Application.GetOpenFilename _
                (Title:="izaberi datoteku za uvoz podataka", _
                FileFilter:=prihvaceneEkstenzije)
                
    'ako datoteka nije izabrana
    If FileToOpen = False Then
        MsgBox "Nije izabrana datoteka.", vbExclamation, "ERROR"
        Exit Sub
    End If
    
    'ime datoteke koju smo uzeli
    imeFajla = GetFilenameFromPath(FileToOpen)
end sub