自定义函数之对话框打开文件

作者：绿色风分类：时间：2022-08-18 浏览：135

楼主
DJ_Soo

'打开Excel文件,并将此工作簿赋值给函数
'Title设置打开文件对话框的标题,filtername可以设置打开类型的名称,filterTypes设置类型后缀
'InitialFileName设置初始化的路径
Function OpenXlsFile(Title As String, Optional filterName As String, Optional filterTypes As String, Optional InitialFileName As String) As Object
Dim Brs As Object
Dim FilePath As String
Set Brs = Application.FileDialog(msoFileDialogFilePicker)
With Brs
.AllowMultiSelect = False
.Title = Title
.InitialFileName = InitialFileName & "\"
.Filters.Clear
If filterTypes <> "" Then
.Filters.Add filterName, filterTypes
End If
.Filters.Add "All Files", "*.*"
If .Show = -1 Then
FilePath = .SelectedItems(1)
Set OpenXlsFile = Workbooks.Open(FilePath)
End If
End With
End Function

此函数用对话框打开Excel文件,可自定义打开对话框的标题,打开类型的筛选和起始路径.如图:

测试代码:

Sub test()
Dim Xls As Workbook
Set Xls = OpenXlsFile("随便打开个文件", "我的文件", "*.xls,*.xlsm", "C:")
If Not Xls Is Nothing Then
MsgBox Xls.Name '获取打开文件的名字
MsgBox Xls.Path '获取打开的文件路径
Xls.Close False '关闭文件
End If
End Sub

Upload.zip

2楼
lnt1231

马克一下

免责声明

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

评论列表