vba - MS Office SaveAs 类型 FileDialog 与 vb 中的过滤器

Question

我想创建一个带有过滤器的“另存为”文件对话框，但这似乎不可能使用 FileDialog 类(Microsoft Office 12.0 对象库)。文档实际上提到了这个 here ，见最后一段，但没有说明为什么？在 vb 中是否有另一种方法可以实现这一点？

我觉得奇怪的是 FileDialog 类不允许这样做，因为 Word、Excel 和 Access 都内置了这个确切的 SaveAs 功能。

我意识到 FileDialog 可以创建为允许过滤器的 FilePicker (msoFileDialogFilePicker)，但是这不允许选择尚不存在的文件，这与整点相悖。

Answer 1

出于某种原因，这似乎是对该特定类(class)的限制，那么怎么样？

Dim vResult As Variant
vResult = Application.GetSaveAsFilename("default.blah", "blah files,*.blah,Text file,*.txt,All files,*.*", 0, "Title")
If VarType(vResult) = vbBoolean Then
    MsgBox "cancelled"
Else
    MsgBox vResult
End If