竞赛[高8]最好和最简洁的文件打开对话框功能

fan0217

1. 
   
2. 
   
3. '===============================================================================
   
4. '-函数名称:         GetFileName
   
5. '-功能描述:         弹出文件打开对话框，获得选取的文件名
   
6. '-输入参数说明:     参数1:filter  可选 文件筛选器
   
7. '                   参数2:filterTitle   可选  筛选文件的描述
   
8. '                   参数3:title   可选 对话框标题
   
9. '                   参数4:SpaceDigit  可选  表示文件对话框中初始显示的路径和/或文件名
   
10. '-返回参数说明:     返回选取的文件名
    
11. '-使用语法示例:     Me.FileName = GetFileName("*.MDB", "Microsoft Access")
    
12. '-参考:             Office VBA 帮助
    
13. '-使用注意:         可以引用Microsoft Office 1x.0 Object Library
    
14. '-兼容性:           XP,2003
    
15. '-作者:             fans fan0217  QQ:370552091
    
16. '-更新日期：        2007-5-2
    
17. '===============================================================================
    
18. Public Function GetFileName(Optional filter As String = "*.*", _
    
19.                             Optional filterTitle As String = "所有文件", _
    
20.                             Optional title As String, _
    
21.                             Optional initialFileName As String) As String
    
22.     Dim dlg As Object
    
23.     Set dlg = Application.FileDialog(1)
    
24.         With dlg
    
25.             .AllowMultiSelect = False
    
26.             If Not IsMissing(title) Then
    
27.                 .title = title
    
28.             End If
    
29.             If IsMissing(initialFileName) Then
    
30.                 .initialFileName = initialFileName
    
31.             End If
    
32.             .Filters.Add filterTitle, filter
    
33.             .Show
    
34.         End With
    
35.         If dlg.SelectedItems.Count > 0 Then
    
36.                GetFileName = dlg.SelectedItems(1)
    
37.            Else
    
38.                GetFileName = ""
    
39.         End If
    
40.     Set dlg = Nothing
    
41. End Function
    
42. 
    

复制代码

andymark

大家都忽略一个问题，一般的对话框中支持多项多类型的选择，也就是在下拉列表中有多个选项。什么是最好 最方便 最简洁 ，看来每个人的理解都不尽相同

tmtony

这个题目出的不好了
没有很好的判断标准

fan0217

但至少有一点可以看出来了，使用Office对象是最优的选择。但做成函数等集成模块，那么灵活度自然要受到影响的。所以在实际应用中，可根据自己的需要来灵活应用，没有一成不变的。代码的质量高度远比不上好的思维方法。

Grant

原帖由 andymark 于 2008-3-8 17:49 发表
大家都忽略一个问题，一般的对话框中支持多项多类型的选择，也就是在下拉列表中有多个选项。什么是最好 最方便 最简洁 ，看来每个人的理解都不尽相同

赞同

tmtony

这道题我出得不好, 定义不够清晰.  但现在只好先结贴给奖金了
咱家是猫 版主 和 fan0217版主 的答案功能和代码长度都旗鼓相当,  不过, 因为 咱家是猫 版主发在前,
所以判 咱家是猫 版主取胜了. 80元 O币已经送到家门口

sblisb

使用咱家是猫的代码

Dim dlgOpen As FileDialog
停在这一句,提示"用户定义类型未定义"
这是什么原因?
谢谢

andymark

需引用
Micosoft Office 1X.0 Object Library

sblisb

原帖由 andymark 于 2008-4-9 21:50 发表
需引用
Micosoft Office 1X.0 Object Library

谢谢!
还以为是引用Micosoft access 1X.0 Object Library
文件夹选取如何写?

390012370

多谢分享！学习学习！