从路径中提取文件名 - VBA

在VBA中，如果你有一个文件的完整路径，你可以使用一些简单的函数来提取文件名。以下是一些用于提取文件名的常用方法：

1. 使用InStrRev和Mid函数

InStrRev 函数返回一个字符串在另一个字符串中最后一次出现的位置，Mid 函数返回指定长度的字符串，从指定位置开始。

Function GetFileNameFromPath(ByVal FilePath As String) As String
    Dim LastSeparator As Long
    LastSeparator = InStrRev(FilePath, "\") '查找最后一个反斜杠字符的位置
    GetFileNameFromPath = Mid(FilePath, LastSeparator + 1) '提取文件名
End Function

使用该函数时，你需要将完整文件路径作为参数传递给 GetFileNameFromPath 函数。函数将返回文件名。

2. 使用Split函数

另一种提取文件名的方法是使用 Split 函数。此函数将字符串拆分为一个数组，你可以使用数组元素来获取文件名。要这样做，请使用 Split 函数拆分字符串，并使用数组中的最后一个元素作为文件名。

Function GetFileNameFromPath(ByVal FilePath As String) As String
    Dim PathSplit() As String
    PathSplit = Split(FilePath, "\") '拆分文件路径
    GetFileNameFromPath = PathSplit(UBound(PathSplit)) '获取路径数组的最后一项
End Function

如果文件路径包含分隔符\，则将使用 Split 函数将路径拆分为一个数组。最后一个数组元素将是文件名。

以上是两种在 VBA 中获取文件名的方法。你可以根据你的需要选择其中的任何一种，并将其应用到你的代码中。