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")