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

tmtony

功能：使用代码调用文件打开对话框，只可使用Access或Office本身的功能，不可使用第三方Activex控件
要求：功能符合要求，代码最简洁，调用最方便
奖品：只取第一名 第一名增加金钱数80 增加经验值10 增加魅力10
期限：10天

390012370

多谢分享！学习学习！

sblisb

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

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

andymark

需引用
Micosoft Office 1X.0 Object Library

sblisb

使用咱家是猫的代码

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

tmtony

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

Grant

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

赞同

fan0217

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

tmtony

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

andymark

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

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. 
    

复制代码