Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

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

点击图片查看大图

the library which contains this symbol is not rdferenced by the current project ,
so the symbol is undefined would you like to add a reference to the containing library now ? 
然后点击 是 ,运行代码就OK了。
          虽然有点废话,但希望浪费点时间看是值得的。


Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助