Access VBA启动CATIA时ENOIEF3DExpServices.dll依赖库缺失报错排查

问题描述 #

我开发的MS Access数据库通过VBA实现了直接启动不同版本CATIA（R27、R28、R30）的功能，桌面默认有这三个版本的快捷方式。目前遇到以下问题：

• R27（2017版，最旧版本）启动后无法连接3DEXPERIENCE，报错提示找不到C:\Program Files\Dassault Systemes\B421xcadconnectors\win_b64\code\bin\ENOIEF3DExpServices.dll的依赖库，但该文件实际存在
• 近期R30也出现了相同问题
• 只有通过Access启动CATIA时才会触发报错，直接双击快捷方式或批处理启动CATIA完全正常；但通过Access调用批处理仍会报错
• 报错后必须重启VMware会话才能恢复正常
• 已经试过ShellExecute、CreateObject、Shell等多种VBA启动方式，都没用；现在临时方案是通过VBA打开存放快捷方式的文件夹，想实现直接启动的效果

可能的解决方案 #

1. 带完整系统环境变量启动CATIA #

Access进程可能没加载CATIA需要的系统环境变量（比如3DEXPERIENCE相关的路径），可以在VBA里先把环境变量补全再启动：

Sub StartCATIAWithEnv()
    Dim catiaPath As String
    Dim sysEnv As String
    ' 替换成你R27快捷方式指向的CATIA.EXE实际路径
    catiaPath = """C:\Program Files\Dassault Systemes\B27\win_b64\code\bin\CATIA.exe"""
    
    ' 拼接CATIA所需的系统环境变量（根据你的实际环境调整变量名）
    sysEnv = Environ("PATH") & ";" & Environ("3DEXPERIENCE_PATH") & ";" & Environ("CATIA_V5_PATH")
    
    ' 通过cmd加载环境变量后启动CATIA
    Shell "cmd.exe /c set PATH=" & sysEnv & " && " & catiaPath, vbNormalFocus
End Sub

2. 启动前清理CATIA进程残留 #

VMware会话里，Access可能残留了之前CATIA的COM对象或进程碎片，导致启动新版本时依赖冲突：

Sub CleanCATIAProcessesAndStart()
    On Error Resume Next
    ' 终止所有CATIA进程
    Dim wmiService As Object
    Dim processes As Object
    Dim proc As Object
    
    Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
    Set processes = wmiService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='CATIA.exe'")
    
    For Each proc In processes
        proc.Terminate()
    Next
    
    ' 等2秒确保进程彻底退出
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 直接启动桌面快捷方式
    Shell """C:\Users\YourUsername\Desktop\CATIA V5-6R2017.lnk""", vbNormalFocus
End Sub

3. 以管理员权限启动 #

权限不够可能导致Access读不到CATIA依赖库的完整权限，试试这两种方式：

• VBA里强制以管理员身份启动CATIA：

Sub StartCATIAAsAdmin()
    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    ' 替换成你的CATIA快捷方式路径
    shellApp.ShellExecute "C:\Users\YourUsername\Desktop\CATIA V5-6R2017.lnk", "", "", "runas", 1
End Sub

• 或者右键Access程序，选“以管理员身份运行”后再测试启动CATIA

4. 修复DLL注册 #

虽然文件存在，但可能没正确注册，手动注册试试：

1. 开管理员命令提示符
2. 执行：

regsvr32 "C:\Program Files\Dassault Systemes\B421xcadconnectors\win_b64\code\bin\ENOIEF3DExpServices.dll"

如果注册失败，用dumpbin /dependents "C:\Program Files\Dassault Systemes\B421xcadconnectors\win_b64\code\bin\ENOIEF3DExpServices.dll"命令看具体缺哪个依赖库，再针对性修复

5. 切换工作目录后启动 #

Access的工作目录和CATIA要求的可能不一样，导致依赖加载失败：

Sub StartCATIAWithRightWD()
    Dim originalWD As String
    Dim catiaBinPath As String
    ' CATIA的bin目录路径
    catiaBinPath = "C:\Program Files\Dassault Systemes\B27\win_b64\code\bin\"
    
    ' 保存当前工作目录
    originalWD = CurDir()
    ' 切换到CATIA的bin目录
    ChDir catiaBinPath
    
    ' 启动CATIA
    Shell "CATIA.exe", vbNormalFocus
    
    ' 切回原工作目录
    ChDir originalWD
End Sub

内容的提问来源于stack exchange，提问作者Jacob