jack　发表于：2012-08-30 11:23:29 　

Application.FileDialog(msoFileDialogSaveAs)如何样自己设定默认文件扩展名?

如下图，就是说另存为窗口里默认的文件扩展名应该怎么指定。

我知道如果是msoFileDialogOpen，可以通过filters.clear, filters.add来指定，但msoFileDialogSaveAs的情况下不能用同样的方法。

With Application.FileDialog(msoFileDialogOpen)

        .Filters.Clear

        .Filters.Add "Excel File", "*.xls"

        .Filters.Add "All File", "*.*"

        .Show

    End With

Top

叶海峰发表于：2012-08-30 15:42:26

FilterIndex 属性

参阅应用于示例特性

返回或设置一个 Long 类型，表示文件对话框的默认文件筛选。默认筛选决定首次打开文件对话框时显示的文件类型。可读写。

'Add a filter that includes GIF and JPEG images and make it the second item in the list.
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2

        'Sets the initial file filter to number 2.
        .FilterIndex = 2

Top

心态哥发表于：2012-08-30 19:55:05

学习了

Top

dbaseIIIer 发表于：2012-08-31 14:49:34

还可以添加多个的。

.Filters.Add "Images", "*.gif; *.jpg; *.jpeg"

.Filters.Add "JPEG", "*.jpg;*.jpeg"

.Filters.Add "BMP", "*.bmp"

默认为第一个

.FilterIndex = 第几个随便你们，因为一般都是第一个的！

Top