VBA调用PIT_math_tools.dll模块函数报453找不到入口点如何解决

我有一个采用VB.NET编写、名为PIT_math_tools的数学函数类库，内部按不同模块拆分功能。本次需要调用的函数位于名为geometry_ellipsen_module的模块中，对应代码结构如下：

Namespace geometry_ellipsen
    Public Module geometry_ellipsen_module
    ...
         Public Function calc_distanz_ellipse_kreis(...) As Double

我需要在Excel VBA中调用calc_distanz_ellipse_kreis()函数，最初使用如下Declare语句完成声明：

Private Declare PtrSafe Function calc_distanz_ellipse_kreis Lib "C:\Users\path...\PIT_math_tools.dll" (...) As Double

上述声明语句表面无语法问题，但实际调用函数时触发运行时错误'453'，提示信息为："DLL-Entry Point calc_distanz_ellipse_kreis in 'PathToLibrary' not found."。
该函数在其他.NET项目代码中可正常调用，调用时需添加前缀PIT_math_tools.geometry_ellipsen.geometry_ellipsen_module.calc_distanz_ellipse_kreis()，或通过与该前缀完全一致的Imports语句导入后使用。基于该调用规则，我尝试在VBA的Declare语句中为函数名追加相同前缀，写法如下：

Private Declare PtrSafe Function geometry_ellipsen.geometry_ellipsen_module.calc_distanz_ellipse_kreis Lib ...

但该写法直接触发编译错误，提示"Expected: Lib"。

• VBA的Declare语句仅能直接调用标准非托管Win32 DLL的显式导出函数，你编译生成的VB.NET类库是托管程序集，默认不会将内部函数暴露为原生DLL入口点，因此会触发找不到入口点的453错误。
• Declare语句的函数名位置是VBA侧使用的函数别名，语法上不允许出现点号，因此直接在函数名位置拼接命名空间前缀会触发编译错误。即使通过Alias子句写全带命名空间的名称，由于托管DLL本身没有导出对应符号，依然会报453错误。

根据部署场景二选一即可：

方案1：开启COM互操作（无需修改业务函数代码，适合常规Office扩展场景） #

1. 打开VB.NET的PIT_math_tools项目，做如下配置：
   • 右键项目→【属性】→【应用程序】→【程序集信息】，勾选使程序集COM可见
   • 切换到【生成】选项卡，勾选为COM互操作注册；注意目标平台必须和安装的Office位数一致：32位Office选x86，64位Office选x64，不要使用Any CPU避免兼容问题
   • 重新编译项目生成DLL
2. 注册类库：
   打开对应版本的.NET注册工具执行注册命令：
   • 64位Office用C:\Windows\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe
   • 32位Office用C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe
     命令格式如下：

   RegAsm.exe "你的PIT_math_tools.dll完整路径" /codebase /tlb
   

   执行成功后会在DLL同目录生成对应的tlb类型库文件。
3. VBA侧调用：
   可选早绑定或晚绑定：
   • 早绑定：打开VBA编辑器→【工具】→【引用】，找到PIT_math_tools对应的类型库勾选，之后可以直接在代码里按命名空间调用函数
   • 晚绑定（无需手动加引用，部署兼容性更好）：直接用CreateObject创建实例后调用，示例代码：

   Sub CallEllipseCalc()
       Dim geoModule As Object
       Dim result As Double
       ' ProgID与.NET侧调用的完整命名空间+模块名完全一致
       Set geoModule = CreateObject("PIT_math_tools.geometry_ellipsen.geometry_ellipsen_module")
       ' 传入对应实参即可获取返回值
       result = geoModule.calc_distanz_ellipse_kreis(/* 你的实参列表 */)
       MsgBox result
   End Sub
   

方案2：添加原生DLL导出（适合必须用Declare静态调用的场景） #

如果不想走COM注册流程，希望和调用原生Win32 API一样用Declare语句直接调用，可以给.NET函数添加原生导出标记：

1. 在VB.NET项目中安装NuGet包RGiesecke.DllExport（即UnmanagedExports）
2. 给目标函数添加DllExport特性，指定导出名称和调用约定为StdCall（VBA默认的调用约定），示例：

   Namespace geometry_ellipsen
       Public Module geometry_ellipsen_module
           <DllExport("calc_distanz_ellipse_kreis", CallingConvention.StdCall)>
           Public Function calc_distanz_ellipse_kreis(...) As Double
               ' 原有函数逻辑保持不变
           End Function
       End Module
   End Namespace
   

3. 将目标平台设置为和Office一致的x86/x64，编译生成DLL，此时DLL已经生成了VBA可识别的导出入口点，直接用最初的Declare语句即可正常调用，不需要加命名空间前缀，也不需要注册COM。

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