打开及保存文件这个对话框编程怎么打开？

zhichaochen

打开及保存文件这个对话框编程怎么打开？
最近编程要用到打开及保存文件这个对话框，查了帮助文件要用FILEDIALOG这个类，按帮助文件，复制帮助文件的代码，可在ACCESS中却用不了，老是出错。说是定义错误，
access原来示例
该示例显示“另存为”对话框。
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog( _
    FileDialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
  用以上代码，错多了，改用下面代码：
'Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(1)
dlgSaveAs.Show
对话框可以打开，但怎么才能把这个选择后的目录文件的字串保存起来呢，帮助文件中说：使用 FileDialog 对象的 SelectedItems 属性返回一个 FileDialogSelectedItems 集合。说是用这个SelectedItems 返回，但这个就也出错，不知是什么回事，头大了，
在VB2005中这些好用极了，但在VBA中就不行，不知咋回事，
求高手指点。

tmtony

看看andymark总版主的实例

http://www.office-cn.net/forum.p ... C4%BC%FE%2Bandymark