excel - 如何只获取文件名而不是打开文件的整个文件路径？

Question

换句话说，调用Application.GetOpenFileName()方法后，是否需要做一些字符串处理？

Answer 1

为什么要重新发明轮子并编写大量样板代码？只需使用现有的 FileSystemObject的 GetFileName 方法，已经为您编写、测试和调试:

filename = FSO.GetFileName(path)

这是一个工作示例:

Dim path As String
Dim filename As String
Dim FSO As Scripting.FileSystemObject
Set FSO = New FileSystemObject

path = "C:\mydir\myotherdir\myfile.txt"

filename = FSO.GetFileName(path) 'Bingo. Done.

Debug.Print filename ' returns "myfile.txt"

' Other features:
Debug.Print FSO.GetBaseName(path) ' myfile
Debug.Print FSO.GetExtensionName(path) ' txt
Debug.Print FSO.GetParentFolderName(path) ' C:\mydir\myotherdir
Debug.Print FSO.GetDriveName(path) ' C:
' et cetera, et cetera.

您需要按如下方式设置引用:工具 > 引用... > 在 Microsoft Scripting Runtime 旁边设置复选标记。

否则使用后期绑定(bind):

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")