Application.FileDialog(msoFileDialogSaveAs)如何自定义筛选？

Question

Application.FileDialog(msoFileDialogSaveAs)与Application.FileDialog(msoFileDialogOpen)，后者可以.Filter.Clear和ADD，但在前者上会出现不支持的错误，如何对前者自定义筛选？

Answer 1

    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Clear
        .Filters.Add "Excel File", "*.xls"
        .Filters.Add "All File", "*.*"
        .Show
    End With

Answer 2

expression.GetSaveAsFilename(InitialFilename,FileFilter,FilterIndex,Title,ButtonText)