vba - 如何从vba中的路径中提取文件名

Question

这个问题已经有答案了:

How to extract file name from path? (16 个回答)

Extract filename from path [duplicate] (9 个回答)

已关闭 2 年前。

我正在编写一段代码，在其中打开一个文件来提取数据。我目前正在使用以下代码；我想从路径中提取文件名并将其存储在特定范围内。这是代码:

FilePath = Application.GetOpenFilename("Excel Files (*.xlsx), *.xls")
If FilePath <> False Then
Range("D6").Value = FilePath
file = Range("D6").Value
Range("D6").Clear
End If

Answer 1

你可以像下面这样做:

FilePath = Application.GetOpenFilename("Excel Files (*.xlsm), *.xlsm")

If FilePath <> False Then
    Dim fso As Object
    Dim objFile As Object

    Set fso = VBA.CreateObject("Scripting.FileSystemObject")
    Set objFile = fso.GetFile(FilePath)

    If Not objFile Is Nothing Then
        FileName = objFile.Name
    End If

End If