Access 里个文件对话框对像 FileDialog 的问题

fxbianxiu

当文件对话框设置为 msoFileDialogOpen 时，可以使用方法 Filters.Add ，但设置为另存为对话框 msoFileDialogSaveAs 时，使用 Filters.Add  方法却出现错误，提示运行时错误“438”，对象不支持该属性或方法，请问使用另存为对话框时，如何设置自定义的另存为文件类型呢？

我的代码如下：
Dim objFileDialog                   As FileDialog
   Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs)   

    With objFileDialog

       .AllowMultiSelect = False                          '只允许选择一个文件
        .InitialView = msoFileDialogViewTiles              '选择文件显示方式为平铺
        .Title = "报表另存为..."
       .Filters.Clear
       .Filters.Add "文本文件", "*.txt"
       .Show

    End With

执行到 .Filters.Clear 时提示运行时错误“438”，对象不支持该属性或方法

roych

“另存为”是不能选择文件类型的。最简单的例子就是，Access不能另存为Excel文件吧【改扩展名当然是不算的】？
因此，需要改为文件拾取器才可以，即把对应的语句修改为：
Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker)