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