sub ucitajDatoteku()  

 'odredi path

   

    Dim folderPath As String

    Application.DefaultFilePath = Application.ThisWorkbook.Path

   

    '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 Function

    End If

   

    'ime datoteke koju smo uzeli

    imeFajla = GetFilenameFromPath(FileToOpen)

end sub

Public Function GetFilenameFromPath(ByVal strPath As String) As String

    'UZMI IME IF FAJLA

    ' npr. 'c:\winnt\win.ini' vraca 'win.ini'

 

    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then

        GetFilenameFromPath = GetFilenameFromPath(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)

    End If

End Function