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

tmtony

功能：使用代碼調(diào)用文件打開對話框，只可使用Access或Office本身的功能，不可使用第三方Activex控件
要求：功能符合要求，代碼最簡潔，調(diào)用最方便
獎(jiǎng)品：只取第一名 第一名增加金錢數(shù)80 增加經(jīng)驗(yàn)值10 增加魅力10
期限：10天

咱家是貓

Function GetFileName(TitleText As String, Filter As String, FilterText As String, ByVal DialogType As Integer, Optional ByVal FilePath) As String
'參數(shù)DialogType說明：
'1.“打開”對話框
'2.“另存為”對話框(此項(xiàng)如執(zhí)行類型篩選時(shí)會(huì)出錯(cuò),所以加了出錯(cuò)處理為 Resume Next)
'3.“文件選取器”對話框
'4.“文件夾選取器”對話框
'例:AA = GetFileName("打開", "*.ini;*.txt", "配置文件", 1, 3)

On Error Resume Next

    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(DialogType)
    With dlgOpen
        .Title = TitleText
        .Filters.Clear
        .Filters.Add FilterText, Filter
        .AllowMultiSelect = False
        If IsMissing(FilePath) Then
            .InitialFileName = CurrentProject.Path
        Else
            .InitialFileName = FilePath
        End If
        .Show
    End With
    If dlgOpen.SelectedItems.Count > 0 Then
        GetFileName = dlgOpen.SelectedItems(1)
    Else
        GetFileName = ""
    End If
    Set dlgOpen = Nothing

End Function

andymark

能不能引用office 11 Library

tmtony

也可以 是OFFICE本身的, 我知道你想取巧了

liwen

幫助里的東西總是最有效：

Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
    DialogType:=msoFileDialogOpen)

With dlgOpen
    .AllowMultiSelect = True
    .Show
End With

For i = 1 To dlgOpen.SelectedItems.Count
sStr = sStr & dlgOpen.SelectedItems(i) & vbCrLf
Next
MsgBox sStr

[ 本帖最后由 liwen 于 2008-3-4 16:25 編輯 ]

andymark

這個(gè)當(dāng)然行，但不是最好的，應(yīng)該要寫成模塊，最起碼能自定義后綴篩選

tmtony

正是 至少可以指定擴(kuò)展名

liwen

Sub FilesSelect()
Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog( _
    DialogType:=msoFileDialogOpen)

With dlgOpen
    .AllowMultiSelect = True
    .Filters.Add "AIS文件", "*.ais", 1
    .Filters.Add "圖象", "*.gif; *.jpg; *.jpeg; *.bmp", 1
    .Show
End With
For i = 1 To dlgOpen.SelectedItems.Count
sStr = sStr & dlgOpen.SelectedItems(i) & vbCrLf
Next
MsgBox sStr

Set dlgOpen = Nothing

End Sub

還是來源于幫助

[ 本帖最后由 liwen 于 2008-3-4 16:36 編輯 ]

andymark

對話框也可支持多選的

tmtony

不錯(cuò), 看來API 太長了,個(gè)個(gè)都不用