access-vba这弹出对话框(限制后缀)
作者:lingmincc 日期:2008-02-25
Dim myDialog As FileDialog
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.AllowMultiSelect = False
//只加入了两种后缀的
.Filters.Add "Excel形式", "*.xls", 1
.Filters.Add "CSV形式", "...
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear
.AllowMultiSelect = False
//只加入了两种后缀的
.Filters.Add "Excel形式", "*.xls", 1
.Filters.Add "CSV形式", "...
标签:






