Excel VBA获取选择文件的文件名称

Dim File As Variant Dim aFile As Variant '数组，提取文件名fileName时使用 '打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant Dim i As Integer File = Application.GetOpenFilename("Excel 文件,*.xls;*.xlsx;*.xlsm") '调用Windows打开文件对话框 If File <> False Then '如果未按“取消”键 aFile = Split(File, "\") '以“\”切割完整的文件路径 FileName = aFile(UBound(aFile)) '数组的最后一个元素为文件名（含后缀名） FullName = aFile(0) For i = 1 To (UBound(aFile) - 1) '“UBound(aFile) - 1”即不包括数组的最后一个元素 FullName = FullName & "\" & aFile(i) '最终获取完整路径 Next Else End End If MsgBox "完整路径是：" & FullName MsgBox "文件名是：" & FileName

代码执行后效果如下 1、 2、 3、