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

Dj_soo

1. '打开Excel文件,并将此工作簿赋值给函数
   
2. 'Title设置打开文件对话框的标题,filtername可以设置打开类型的名称,filterTypes设置类型后缀
   
3. 'InitialFileName设置初始化的路径
   
4. Function OpenXlsFile(Title As String, Optional filterName As String, Optional filterTypes As String, Optional InitialFileName As String) As Object
   
5.     Dim Brs As Object
   
6.     Dim FilePath As String
   
7.     Set Brs = Application.FileDialog(msoFileDialogFilePicker)
   
8.     With Brs
   
9.         .AllowMultiSelect = False
   
10.         .Title = Title
    
11.         .InitialFileName = InitialFileName & ""
    
12.         .Filters.Clear
    
13.         If filterTypes <> "" Then
    
14.             .Filters.Add filterName, filterTypes
    
15.         End If
    
16.         .Filters.Add "All Files", "*.*"
    
17.         If .Show = -1 Then
    
18.             FilePath = .SelectedItems(1)
    
19.             Set OpenXlsFile = Workbooks.Open(FilePath)
    
20.         End If
    
21.     End With
    
22. End Function

复制代码

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

测试代码:

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

复制代码

Upload.zip (17.89 KB, 下载次数: 13)

2012-5-21 16:57 上传

点击文件名下载附件

清风明月12

谢谢楼主代码分享！太有用了