Excel VBA - 从文件路径中提取文件名

12 浏览
0 Comments

Excel VBA - 从文件路径中提取文件名

下面的代码用于选择一个文件并将文件路径加载到文本框中。我想从中提取出文件名并将其放入文本框中。我相信有一种简单的方法可以做到这一点，但我找不到。谢谢您的帮助！

0

1 答案

0 Comments

问题出现的原因是需要从文件路径中提取文件名，解决方法是使用VBA编写一个子程序。下面是代码：

Sub openDialog1()
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
  .AllowMultiSelect = False
  .Title = "Please select the report."
  .Filters.Clear
  .Filters.Add "Excel 2003", "*.xls"
  .Filters.Add "All Files", "*.*"
  If .Show = True Then
    ary = Split(.SelectedItems(1), "\")
    MsgBox ary(UBound(ary))
  End If
End With
End Sub

这个代码使用了Office.FileDialog对象来打开文件选择对话框，并允许用户选择一个文件。然后，代码使用Split函数将文件路径按照反斜杠分割成一个数组，然后通过UBound函数获取数组中最后一个元素，即文件名。最后，使用MsgBox函数显示文件名。

这种解决方法相对简单，而且不需要使用FileSystemObject来处理文件路径。

0