额，第一次发帖，利用官网的资源太多了，贡献给大家的却很少，并不是自私而是觉得不能误人子弟，当然不做和做的不好是两回事。

有时候可能是很小、很简单的问题，我们也可以写一写，贡献我们自己的小小力量。特别是纠结很久，但很容易解决的问题。

         这里呢就是我开发过程中的一个小问题，主要是难者不会会者不难。

 

        情况是我从一个数据库原件上复制修改得到一个数据库，其中有个功能是打开文件对话框获取被选中的文件名，突然有一天打开出现错误，如图。

                                                             http://www.accessoft.com/userfiles/fufenfhl/20120502135057.jpg

源码：

With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        '.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .Filters.Add "Excel", "*.xlsx;*.xls "
        If .Show Then
        MsgBox 1
        Else
        MsgBox 2
        End If
        End With

运行后 出现问题

所以就百度搜 群里问 海底捞 火山爬，还是没解决问题。

查着查着，我似乎有了个想法，就是application这个库有问题，但我也不了解库的知识。我也从其他可以运行的代码复制粘贴过来运行，OK的。

          我就试着 手写输入  with application.filedialog()  当输入 msoFileDialogFilePicker的时候 就提示我。http://www.accessoft.com/userfiles/fufenfhl/20120502134935.jpg