Office中国论坛/Access中国论坛

标题: Access 里个文件对话框对像 FileDialog 的问题 [打印本页]

作者: fxbianxiu 时间: 2013-3-11 22:07
标题: Access 里个文件对话框对像 FileDialog 的问题

当文件对话框设置为 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 时间: 2013-3-12 01:12
“另存为”是不能选择文件类型的。最简单的例子就是，Access不能另存为Excel文件吧【改扩展名当然是不算的】？
因此，需要改为文件拾取器才可以，即把对应的语句修改为：
Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker)

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)