競賽[高8]最好和最簡潔的文件打開對話框功能

fan0217

1. 
   
2. 
   
3. '===============================================================================
   
4. '-函數(shù)名稱:         GetFileName
   
5. '-功能描述:         彈出文件打開對話框，獲得選取的文件名
   
6. '-輸入?yún)��?shù)說明:     參數(shù)1:filter  可選 文件篩選器
   
7. '                   參數(shù)2:filterTitle   可選  篩選文件的描述
   
8. '                   參數(shù)3:title   可選 對話框標(biāo)題
   
9. '                   參數(shù)4:SpaceDigit  可選  表示文件對話框中初始顯示的路徑和/或文件名
   
10. '-返回參數(shù)說明:     返回選取的文件名
    
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. 
    

復(fù)制代碼

andymark

大家都忽略一個(gè)問題，一般的對話框中支持多項(xiàng)多類型的選擇，也就是在下拉列表中有多個(gè)選項(xiàng)。什么是最好 最方便 最簡潔 ，看來每個(gè)人的理解都不盡相同

tmtony

這個(gè)題目出的不好了
沒有很好的判斷標(biāo)準(zhǔn)

fan0217

但至少有一點(diǎn)可以看出來了，使用Office對象是最優(yōu)的選擇。但做成函數(shù)等集成模塊，那么靈活度自然要受到影響的。所以在實(shí)際應(yīng)用中，可根據(jù)自己的需要來靈活應(yīng)用，沒有一成不變的。代碼的質(zhì)量高度遠(yuǎn)比不上好的思維方法。

Grant

原帖由 andymark 于 2008-3-8 17:49 發(fā)表
大家都忽略一個(gè)問題，一般的對話框中支持多項(xiàng)多類型的選擇，也就是在下拉列表中有多個(gè)選項(xiàng)。什么是最好 最方便 最簡潔 ，看來每個(gè)人的理解都不盡相同

贊同

tmtony

這道題我出得不好, 定義不夠清晰.  但現(xiàn)在只好先結(jié)貼給獎(jiǎng)金了
咱家是貓 版主 和 fan0217版主 的答案功能和代碼長度都旗鼓相當(dāng),  不過, 因?yàn)?咱家是貓 版主發(fā)在前,
所以判 咱家是貓 版主取勝了. 80元 O幣已經(jīng)送到家門口

sblisb

使用咱家是貓的代碼

Dim dlgOpen As FileDialog
停在這一句,提示"用戶定義類型未定義"
這是什么原因?
謝謝

andymark

需引用
Micosoft Office 1X.0 Object Library

sblisb

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

謝謝!
還以為是引用Micosoft access 1X.0 Object Library
文件夾選取如何寫?

390012370

多謝分享！學(xué)習(xí)學(xué)習(xí)！