方法'FileDialog'作用于对象'_Application'时失败的解决方法

时　间:2012-05-02 13:52:34
作　者:麥稥   ID：23882  城市：黄山
摘　要:我是个好人。
正　文:

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

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

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

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

源码：

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的时候 就提示我。