各位老师,可否将此代码合并整合到一个模块,谢谢老师们了!(只显示文件名,不带路径和后缀名)
Sub 获取当前路径下所选择文件的文件名()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel Files", "*.xls;*.doc;*.xls*"
.Filters.Add "All Files", "*.*"
.InitialFileName = ActiveWorkbook.Path
If .Show = -1 Then
MsgBox "你当前选择的文件名为: " & vbCrLf & f(.SelectedItems(1))
Else '否则
MsgBox "你没有选择文件,程序将自动退出!": Exit Sub
End If
MsgBox "你已经选择了文件,程序将继续执行!"
End With
End Sub
Function f(x)
'返回一个包含路径中最后部件的基本名字(去掉任何文件扩展名)的字符串
f = CreateObject("Scripting.FileSystemObject").GetBaseName(x)
End Function
Sub 获取当前路径下所选择文件的文件名()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel Files", "*.xls;*.doc;*.xls*"
.Filters.Add "All Files", "*.*"
.InitialFileName = ActiveWorkbook.Path
If .Show = -1 Then
MsgBox "你当前选择的文件名为: " & vbCrLf & _
CreateObject("Scripting.FileSystemObject").GetBaseName(.SelectedItems(1))
Else '否则
MsgBox "你没有选择文件,程序将自动退出!": Exit Sub
End If
MsgBox "你已经选择了文件,程序将继续执行!"
End With
End Sub