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

Функция ФАЙЛПУТЬ на VBA для определения папки расположения файла по полному пути к файлу.

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

Формула =ФАЙЛПУТЬ(ПУТЬ) определяет расположение папки в которой находится указанный файл. Функция не проверяет существование и работает вне зависимости от наличия доступа к файлу.  Также не важен тип файла: это может быть как документ 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
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.