Function GetFilenameFromPath(ByVal strPath As String) As String

    ' 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

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