在Access中把数据导出至Excel中的问题?

xryaccess2

如下一段代码是我将表中数据导出到Excel中的代码,但在不同机上使用时,有的机用的正常,有的机会出现

这样的错误:“找不到可安装的‘ISAM’”，检查代码执行的错误在如下处：

sqlr2 = "select * into [Excel 4.0;database=" & patha & "\导入Excel\" & Form_main.cboyear.Value & "年" & Form_main.cbomonth.Value & "月末产品库存总表.xls]." & cllbyj & " from 进销存总报表 where [月末结存]<>0 order by [产品编号]"
  CurrentProject.Connection.Execute (sqlr2)

附：我已加引(用)了与Access版本相同的Excel，是否我还要引用其它的，但是我在一些机上，有些运行非常正常，

有些却出现如上错误，尤其是在Win2000系统上时,最容易出现这种错误，我又不想再用其它导出至Excel的方法,因

为我的代码里都用这样的方法,要改动太多了,不知哪位高人可以解决这个问题,不甚感谢!!!(附有出错时的图片)

nxjswt

原因


此错误通常是由 MSACC20.INI 文件或计算机上损坏的动态链接库 (.DLL) 文件中正确的条目。 如果从 Microsoft Access Service Pack 2.0 更新 BTRV200.DLL 使用与原始版本的 MSAJT200.DLL 也可能发生错误。






解决方案





检查 MSACC20.INI 文件要这样做, 请按照下列步骤操作：












1.


在文本编辑器, （如记事本） 打开 MSACC20.INI 文件。





2.


找到 [ 安装 ISAMs ] 部分并注意 ISAM 驱动程序的路径：       [Installable ISAMs]
      Paradox 3.X=C:\Windows\System\Pdx200.dll
      Paradox 4.X=C:\Windows\System\Pdx200.dll
      FoxPro 2.5=C:\Windows\System\Xbs200.dll
      FoxPro 2.6=C:\Windows\System\Xbs200.dll
      FoxPro 2.0=C:\Windows\System\Xbs200.dll
      dBASE III=C:\Windows\System\Xbs200.dll
      dBASE IV=C:\Windows\System\Xbs200.dll
      Btrieve=C:\Windows\System\Btrv200.dll
     





3.


启动 WindowsExplorer （或文件管理器） 并找到 ISAM 驱动程序 MSACC20.INI 文件中列出。 如果没有找到驱动程序在指定位置, 您需要重新安装 ISAM 驱动程序。 要这样做, 请按照下列步骤操作：












a.


文本编辑器中打开 MSACC20.INI 文件并注释 ISAM 部分由进入分号 (;) 中的每行, 例如前面：        [Installable ISAMs]
       aradox 3.X=C:\Windows\System\Pdx200.dll
       aradox 4.X=C:\Windows\System\Pdx200.dll
       ;FoxPro 2.5=C:\Windows\System\Xbs200.dll
       ;FoxPro 2.6=C:\Windows\System\Xbs200.dll
       ;FoxPro 2.0=C:\Windows\System\Xbs200.dll
       ;dBASE III=C:\Windows\System\Xbs200.dll
       ;dBASE IV=C:\Windows\System\Xbs200.dll
       ;Btrieve=C:\Windows\System\Btrv200.dll
      





b.


保存 MSACC20.INI 文件并关闭文本编辑器。





c.


启动 Microsoft Access 安装程序。





d.


单击 " 添加/删除程序 " 按钮。





e.


单击以清除 " ISAM 驱动程序 " 以卸载安装 ISAM 驱动程序, 然后单击继续。 按照说明在屏幕上以完成卸载过程。

备注： 如果禁用 ISAM 驱动程序复选框, 退出安装， 重命名下列文件, 然后重新开始从步骤 c:         BTRV200.DLL
        PDX200.DLL
        XBS200.DLL
      





f.


启动 Microsoft Access 安装程序， 重新安装 ISAM 驱动程序。





g.


单击 " 添加/删除程序 " 按钮。





h.


单击以选中 " ISAM 驱动程序 " 框, 然后单击 " 继续 "。 按照说明来完成安装屏幕上。 此安装过程会更新 MSACC20.INI 文件中 [ 安装 ISAMs ] 节以便正确设置。





4.


如果错误消息持续此时, 完全卸载并重新安装 MicrosoftAccess。 要这样做, 请按照下列步骤操作：












a.


备份所有用 MicrosoftAccess 创建 .MDB 文件。





b.


启动 WindowsExplorer （或文件管理器）。





c.


找到并重命名下列文件 （所有但之一这些文件都位于 \Windows\System 目录）：
        BTRV200.DLL
        COMPOBJ.DLL
        CTL3D.DLL
        MSAJT200.DLL
        MSAJU200.DLL (file located