Excel получить имя файла с путем

In this guide, we’re going to show you how to get filename from path in Excel. We will cover how to do this with and without VBA.

Download Workbook

File path and file name

A file path is a string identifier that specifies the unique location in a file system. It contains folders in a hierarchical order following by a file name. Each element is separated by a delimiter which is usually a backslash «». The goal of getting filename from path is to parse that filename after the last delimiter.

We will show you four different approaches to get filename from path in Excel.

Conservative method

Our first approach is using well known Excel functions MIN, SUBSTITUE and LEN to get the file name. You can use this formula in any Excel version.

This formula has couple of steps:

1. At the inner section, all separators («») get replaced with empty strings.
2. The formula subtracts the length of substituted path (1) from original path to find the number of separators.
3. The outer SUBSTITUTE function replaces the last separator («») with «*». Obviously, the last separator’s instance is equal to number of separators (2).
4. Finally, the FIND locates the «*» character, and the MID function parses the file name after the character.

VBA with FileSystemObject

You can use VBA to create your own custom functions which you can use in worksheet as well. Of course, you can use this function in your macros as well.

The code is very short. It uses GetFileName method of FileSystemObject object. The important section of the code is the initializing of the object. The following code sets FileSystemObject object to fso variable.

Set fso = CreateObject(«Scripting.FileSystemObject»)

Once the object is initialized, use the GetFileName method by providing the path.

GetFileNameFromPath_FSO = fso.GetFileName(«C:Excel FilesDashboards.xlsm»)

The above line returns «Dashboard.xlsm» string. Here is the function version you can use in your worksheets as well.

Function GetFileNameFromPath_FSO(ByVal Path As String) As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    GetFileNameFromPath_FSO = fso.GetFileName(Path)
End Function

VBA with a recursive function

A recursive function is function which calls itself. The recursive approach acts like an iteration and helps us to parse values starting from the end of a string. You could have used recursive functions only in VBA until the LAMBDA function has been released. Because the most of Excel users do not have access to the LAMBDA function, we will show you VBA version which any Excel user can use.

This function has only few rows as well. The function’s name is GetFilenameFromPath_Recursive and take a single argument named Path.

The first row is a logical test that checks if the last character in the argument is a backslash («») or not and if the argument is not an empty string. If the test is passed, the function returns itself with the argument without its last character and the last character of the path. This is where the recursion occurs.

The function runs itself until coming up a backslash («») or not a character left. It parses the characters from the right side and combines them with each run.

The last row contains a standard End If statement which determines where the If block ends.

Function GetFilenameFromPath_Recursive(ByVal Path As String) As String
    If Right$(Path, 1) <> "" And Len(Path) > 0 Then
        GetFilenameFromPath_Recursive = GetFilenameFromPath_Recursive(Left$(Path, Len(Path) - 1)) & Right$(Path, 1)
    End If
End Function

Using LAMBDA to get filename from path

If you are Microsoft 365 subscriber, you can create recursive functions without using VBA. Briefly, the LAMBDA function is a special function that converts named ranges into user defined functions. Its syntax allows you to define arguments and a custom formula which uses that defined arguments.

For example, let’s say my custom function will have two arguments and returns multiplication of two arguments. All I need to is creating a named range, such as «MyLambda» and enter the following formula into Refers to box.

If you call the named range «MyLambda» in the «MyLambda» function, you will create a recursive function. Same logic can be applied to VBA function at previous section.

The following is the LAMBDA version of our VBA code. The function’s name is GetFileNameFromPath_Lambda. Check out how the function calls itself after IF function’s logical test.

Using LAMBDA Function with different approach

Alternatively, you can use the LAMBDA function without calling the «function name».  The definition may sound complicated since you must call the function in the function by its name. This structure dictates you to update each occurrence of the name every time change the function’s name.

You can overcome this necessity by using another Microsoft 365-specific function called LET. The LET function allows you to define named ranges in a formula scope. You can define repeating values or blocks into these names and use them continuously.

If you define the name of the LAMBDA function in the formula, you can use the in-formula name over and over to make the function recursive. In our example, we create the name «Func» in the formula and call it within self. Outer LAMBDA function is to give the whatever name we want, «GetFileNameFromPath_LambdaMe».

Предположим, у вас есть рабочий лист, содержащий список путей к файлам, теперь вы хотите извлечь только имя файла (правая часть последней обратной косой черты) из каждого пути, как показано на следующих снимках экрана. Есть ли какие-нибудь быстрые приемы для решения этой задачи?

Извлечь имя файла из полного пути с формулой в Excel
Извлечь имя файла из полного пути с помощью функции, определяемой пользователем
Извлечь имя файла из полного пути с кодом VBA

Извлечь имя файла из полного пути с формулой в Excel

В Excel вы можете использовать приведенную ниже формулу, чтобы быстро извлечь только имя файла из полного пути.

Выберите пустую ячейку, введите в нее приведенную ниже формулу и нажмите Enter .

=MID(A1,FIND(«*»,SUBSTITUTE(A1,»»,»*»,LEN(A1)-LEN(SUBSTITUTE(A1,»»,»»))))+1,LEN(A1))

Tips: A1 — это ячейка, из которой вы хотите извлечь имя файла), и нажмите кнопку Enter, затем перетащите маркер заполнения, чтобы заполнить нужный диапазон. После этого имя файла извлекается из каждой ячейки.

Извлечь имя файла из полного пути с помощью функции, определяемой пользователем

С помощью следующей функции, определяемой пользователем, вы можете легко и быстро получить имя файла.

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Function FunctionGetFileName(FullPath As String) As String
'Update 20140210
Dim splitList As Variant
splitList = VBA.Split(FullPath, "")
FunctionGetFileName = splitList(UBound(splitList, 1))
End Function

3. Нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно и вернитесь к рабочему листу. В пустой ячейке, например B1, введите в нее приведенную ниже формулу и нажмите Enter .

=FunctionGetFileName(A1)

Затем снова выберите ячейку B1, перетащите маркер заполнения в диапазон, в котором вы хотите применить эту формулу, и все имена файлов были извлечены из полных путей, как следующий результат:

Извлечь имя файла из полного пути с кодом VBA

Помимо функции, определяемой пользователем, код VBA также может помочь вам извлечь имена файлов. Пожалуйста, сделайте так:

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

Sub GetFileName()
'Update 20140210
Dim Rng As Range
Dim WorkRng As Range
Dim splitList As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    splitList = VBA.Split(Rng.Value, "")
    Rng.Value = splitList(UBound(splitList, 1))
Next
End Sub

3, Затем нажмите F5 ключ для запуска этого кода и выберите диапазон, из которого вы хотите извлечь имя файла, см. снимок экрана:

4, Затем нажмите OK, имена файлов были извлечены из выбора следующим образом:

Внимание: С этим кодом VBA исходные данные будут уничтожены, поэтому вы должны скопировать их перед применением этого кода.

Перейти к содержимому раздела

Форумы CADUser

Информационный портал для профессионалов в области САПР

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Дерево сообщений Активные темы Темы без ответов

Function FlExtractFileName(FileName As String) As String
' вытаскивает название файла с расширением, из полного имени файла, т.е из c:1.xxx получит 1.xxx
    Dim stpos As Long
    stpos = InStrRev(FileName, "")
    FlExtractFileName = Right$(FileName, Len(FileName) - stpos)
End Function
Function FlGetProjectName() As String
' узнать полное имя проекта
    Dim app As AcadApplication
    Set app = ThisDrawing.Application
    FlGetProjectName = app.VBE.ActiveVBProject.FileName
End Function

Sub asfff_01()
    Dim path_0 As String
    Dim temp As Variant
    Dim files_0 As String
        path_0 = "c:dhhhfjjjtur1.txt"
        temp = Split(path_0, "")
        files_0 = temp(UBound(temp))
End Sub

Сообщения 12

Тему читают: 1 гость

Скачать пример рабочей книги

Загрузите образец книги

Из этого туториала Вы узнаете, как получить путь и имя файла с помощью формулы в Excel.

Получить путь и имя файла

В Excel нет функции для получения пути и имени файла напрямую, но функция CELL вернет путь к файлу, имя и лист. Используя текстовые функции FIND, LEFT и SUBSTITUTE, мы можем изолировать путь и имя файла.

Давайте рассмотрим формулу.

Имя файла, путь и рабочий лист

Мы используем функцию CELL, чтобы вернуть путь к файлу, имя и лист, введя «имя файла» в качестве типа информации.

НАЙТИ положение имени файла

Как показано выше, функция CELL возвращает путь к файлу, имя и рабочий лист. Нам не нужен рабочий лист или квадратные скобки, поэтому мы используем функцию НАЙТИ, чтобы определить позицию последнего символа (то есть того, который стоит перед «]») в имени файла.

Удалить имя рабочего листа

Когда у нас есть позиция последнего символа имени файла, мы используем функцию LEFT, чтобы удалить имя рабочего листа.

ЗАМЕНА Функция

Выше вы можете видеть, что между путем и именами файлов все еще есть открытая квадратная скобка. Используйте функцию ЗАМЕНА, чтобы заменить «[» пустой строкой.

Объединение этих шагов в единую формулу дает нам:

Получить только путь

Возможно, вы захотите показать только путь без имени файла. Для этого мы можем остановиться на функции LEFT с небольшой настройкой. Заменить не нужно, так как не будет никаких символов в середине строки, которые нужно удалить. Чтобы вернуть только путь, мы находим позицию первого символа имени файла («[«), а не последнего, а имя пути — все слева.

Вы поможете развитию сайта, поделившись страницей с друзьями