Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

Access运行时错误'48':加载DLL错误\对Excel一些操作出现“加载DLL错误”的解决方法

时 间:2014-04-18 09:00:26
作 者:缪炜   ID:24010  城市:江阴
摘 要:对Excel一些操作出现“加载DLL错误”的解决方法
正 文:

    在Access数据库里对Excel操作时,出现运行时错误'48':加载DLL错误,如下图的所示:



    解决方法:将如下这几行代码

    Dim ExcelApp As Excel.Application

    Dim Book As Excel.workbook

    Dim ws As Worksheet

    Dim rst As DAO.Recordset

    Set ExcelApp = New Excel.Application

    Set ws = ExcelApp.Workbooks.Open(xlsPath).Worksheets("Sheet1")


    修改为下面这种即可:

   先把对应的Excel或者word的引用去掉

    Dim ExcelApp As Object

    Dim Book As Object

    Dim ws As Object

    Set ExcelApp = CreateObject("Excel.Application")

    Set ws = ExcelApp.Workbooks.Open(xlsPath).Worksheets("Sheet1")



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

最新评论 查看更多评论(3)

2014/4/18 21:00:55阿坤
以前时不时就出现这个错误,现在有解了

2014/4/18 11:57:50小赵
跟导出Excel一样。这个应当避免引用。

2014/4/18 10:47:51麥田
上次一网友导出word也是运行时48错误
希望他能看到这个解决方法

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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