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

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的库，才算解决问题（微软就是向下兼容，没辙）。