Dim d As FileDialog
Dim dFlt As FileDialogFilter
Set d = Application.FileDialog(msoFileDialogSaveAs)
Set dFlt = d.Filters.Add("Access Databases", "*.mdb", 1)‘这一句为啥会出错？
d.Show
'当对话框类型是msoFileDialogOpen的时候就没事？
'怎么样才能另存的时候指定文件的类型？
------最佳解决方案--------------------------------------------------------
你查查excel的帮助
------其他解决方案--------------------------------------------------------
d.InitialFileName = "D:\123.xls"