如何通过文件选择对话框选择文件后显示该文件的完整文件名及文件名称?

作者：绿色风分类：时间：2022-08-17 浏览：95

楼主
wise

Q:如何通过文件选择对话框选择文件后显示该文件的完整文件名及文件名称?
本例子在A3显示完整文件名,在B3显示文件名称
A:ALT+F11→插入模块→输入以下代码:

Sub SelectFile()
'选择单一文件
Dim str
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
'单选择
.Filters.Clear
'清除文件过滤器
.Filters.Add "Excel Files", "*.xls;*.xlw;*.txt"
.Filters.Add "All Files", "*.*"
'设置两个文件过滤器
If .Show = -1 Then
'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
[A3] = .SelectedItems(1)
str = Split(.SelectedItems(1), "\")
[B3] = Mid(str(UBound(str)), 1, InStr(1, str(UBound(str)), ".") - 1)
End If
End With
End Sub

2楼
biaotiger1

FileDialog(msoFileDialogFilePicker)
参数msoFileDialogFilePicker的用法
学习下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表