请教打开文件对话框指定格式筛选

accesscx

Function GetFileName(TitleText As String, Filter As String, FilterText As String, ByVal DialogType As Integer, Optional ByVal FilePath) As String
'参数DialogType说明：
'1.“打开”对话框
'2.“另存为”对话框(这个项不好用,所以加了出错处理为 Resume Next)
'3.“文件选取器”对话框
'4.“文件夹选取器”对话框
'例:AA = GetFileName("打开", "*.ini;*.txt", "配置文件", 1)

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 = a(10)
        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

'4.“文件夹选取器”对话框
'例:AA = GetFileName("打开", "*.ini;*.txt", "配置文件", 1) 这个格式是放在一起了

怎么改成:  
*.ini
*.txt
*.PDF
这样?

roych

没那么复杂吧？

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Filters.Add "Excel电子表格(*.xls)", "*.xls"
.Title = "请浏览文件"
.ButtonName = "打开"
.InitialView = msoFileDialogViewDetails
If .Show = -1 Then
Me.路径.Value = CStr(fd.SelectedItems.Item(1))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "临时表", Me.路径.Value, True
Me.临时表.Requery
Else
Debug.Print "用户取消"
End If
End With
这是Long Long ago时我写的一个文件选择器，选择完毕后导入数据（If那部分你可以删掉）
如果想改为文件夹选择器，请把fd = Application.FileDialog(msoFileDialogFilePicker)改为：
fd = Application.FileDialog(msoFileDialogForderPicker)
需要注意的是，必须要引用Office库，我在实验过程中发现Access 2003引用的是Office 12.0的库，结果在Access 2000里不兼容，出现引用错误。最后只好在Access 2000里引用11.0的库，才算解决问题（微软就是向下兼容，没辙）。

accesscx

就是实现上图那样,给个示范吧

咱家是猫

回复 accesscx 的帖子

http://www.office-cn.net/thread-94154-1-1.html

szyewj

赞一个，看得出来下了不少功夫，很精致