Определение папки расположения файла функцией в Excel

Описание функции

Формула =ФАЙЛПУТЬ(ПУТЬ) определяет расположение папки в которой находится указанный файл. Функция не проверяет существование и работает вне зависимости от наличия доступа к файлу.  Также не важен тип файла: это может быть как документ Excel, так и  текстовый файл. Функция имеет только один аргумент:

• ПУТЬ - Полный путь к файлу, наименование которого необходимо получить.

Пример

Далее представлен простой пример наглядно демонстрирующий работу функции

Код на VBA

Function ФАЙЛПУТЬ(ПУТЬ As String) As String
    Dim temp As Variant
    Dim i As Long
    ФАЙЛПУТЬ = ""
    If ПУТЬ = "" Then Exit Function
    temp = Split(ПУТЬ, Application.PathSeparator)
    For i = 0 To UBound(temp) - 1
        ФАЙЛПУТЬ = ФАЙЛПУТЬ & temp(i) & Application.PathSeparator
    Next
    ФАЙЛПУТЬ = Left(ФАЙЛПУТЬ, Len(ФАЙЛПУТЬ) - 1)
End Function