好的,这里有很多问题和假设是不正确的。
首先,当您在 VBA 中对 .dll 使用声明时,您不能使用相对路径名。
所以你有了:
Private Declare Function Square Lib
"\Example.dll" (ByRef x As Double, ByRef y As Double)
您不能使用 \Example.dll
您必须指定完整路径名。例如:
C:\mytestApp\Example.dll
因此,即使 vb.net 确实生成了一个有效的 .dll,您也必须使用完整的路径名——不允许使用相对路径名。
您可以将 .dll 放在搜索 .dll 的标准 Windows 路径名中(因此 c:\windows\system32),因此不必使用完整路径名。
然而,现在有了安全性,将 .dll 添加或只是将 .dll 添加到 Windows 系统文件夹中往往会出现很多安全问题和巨大的麻烦。(Windows 使这变得困难,任何病毒软件也是如此)。所以你必须使用完整的路径名。
接下来:
在VBA 中使用declare 是调用windows API 的一种方式,也就是我们所说的windows x32 位库代码。这不是 COM (ActiveX),但必须是原始 windows x32(或 x64)本机 windows 代码。
所以这不是 ActiveX 或“com”对象,而是您调用的原始代码。标准的 vb.net(或任何 .net 语言)不会生成 Windows 本机代码。正确的说法是
托管代码 = .net 代码。此代码不是本机 Windows 代码。
非托管代码 = 原始 Windows 代码。
因此,您必须创建非托管代码才能在 VBA 中使用 DECLARE。
所以你必须使用:X86 assembler C++ VB6 or any development tool that can generate raw x32 (or if using access x64, then raw x64 native windows code).
如今,在 Visual Studio 中,您“可以”生成本机 Windows 代码,但您必须使用非托管代码,这意味着 C++。(c# 或 vb.net 不生成本机代码或 dll)。
因此,您可以使用 c++、VB6 甚至汇编程序来创建这些 .dll。
此类 .dll 不需要注册。如前所述,您不会在 VBA 代码中创建对象的“实例”,而是直接调用它。
因此,这些类型的 .dll(简单的外部库代码调用)不会显示为 COM 对象。如果您在 VBA 编辑器中转到工具-> 参考,那么您不会看到这些库出现。但是,它们易于使用,因为您不必创建对象 I VBA 代码的实例 - 您只需像您的示例一样调用此类代码。
因为路径名是用这种方法硬编码的,所以使用 DECLARE 语句通常很痛苦(因为它是在 VBA 编译时确定的,而不是在运行时确定的)。这意味着您必须将该 .dll 放在您部署到的每台计算机的相同位置。如果您移动或更改文件夹,那么您的代码将会失败。
要解决此问题,您可以在 VBA 中使用 LOADLIBARY 调用。这将允许您在运行时设置(确定).dll 的位置。因此,大多数开发人员会简单地将 .dll 放在与正在运行的应用程序相同的文件夹中(与 Access 或在本例中为 Excel 文件相同的文件夹)。
但是,这假设您创建了一个标准的 windows .dll。
我可以用 vb.net 在 .net 中创建这样的原生 windows .dll 吗?
事实证明,您可以使用一些用于 VS 的外部加载项。我经常使用这种方法来创建这些 dll,从此我不必构建 COM 接口代码,而且使用起来非常简单。
然后,我使用 LOADLIBRARY 调用将上述内容与 VBA 结合起来,效果很好。因此,在 VS 中,您可以使用 NuGet 包(插件)并选择 .dll 导出插件实用程序。有几个,但我使用 RGeseke DLLimport 非常成功。这些是免费的第 3 方选择。
虽然上述减少了一些麻烦,但您将不得不采用 VBA 加载库代码以使其成为一个实际的选择(或始终将 .dll 放在同一位置)。如果您有一些现有的 .dll,并且想要与该代码交互但不想学习 c++,我也推荐这种方法。所以我确实使用这种方法来使用 vb.net 中现有的 dll,从而反过来从 Access 中使用。实际上,这个技巧允许您使用熟悉的语言(如 vb.net)编写 Windows .dll 代码的接口。
但是,如果您过去没有使用过 VBA(和 VB6)中的 LOADlibrary,并且没有跟上速度,那么我建议您选择下一个选项。
从 vb.net 创建 COM (ActiveX)
这可能是最好的方法。这是最常见的方法。但是,您必须权衡必须在 vb.net 中创建 COM 对象,然后在目标计算机上注册它。
因此,唯一的麻烦是在目标计算机上注册 .dll 的要求。
必须在目标计算机上注册 (regasm.exe) COM 对象通常需要提升权限。如今,随着公司如此注重安全性,这种安装要求可能会很麻烦,但它仍然可能是最佳选择。
这是您在 vb.net 中的代码的工作示例。
Imports System.Runtime.InteropServices
<ClassInterface(ClassInterfaceType.AutoDual)>
Public Class Class1
Function Square(ByVal x As Double) As Double
Dim y As Double
y = x * x
Return y
End Function
End Class
请注意上述包括互操作和代码中的 autoDuel 设置。这就是允许 .net 创建标准 Windows COM 对象接口的原因,该接口可由 VBA、VB6、Windows 脚本或任何支持 COM 对象的平台使用。
为此需要的设置:
将 .net 项目强制转换为 x86。(您使用 Excel x32)。
所以在 VS 中去构建-> 配置管理器。单击网格中的平台,然后选择新建,选择 x86 并单击确定。
你现在应该有这个:

接下来,确保项目对 com 可见。默认情况下,通常会为您选中此复选框。所有 .net 类都倾向于以这种方式标记。但是我看到当您将构建更改为 x86 的上一步弄乱时,它变得未选中。所以快速浏览一下这个设置。
项目->属性
现在在应用程序区域,单击装配信息框。
您需要确保已设置此复选框:

所以上面只需要几秒钟。
因此,请检查上述内容(它们通常已经为您设置好了)。
接下来,我们必须告诉 VS 在我们的开发计算机上注册这个 COM 对象。(这是 regasm.exe 要求)。
因此,在编译区域中,选中此框:

现在,VS 中的上述复选框仅用于您的开发计算机和方便。它只是为你做了一个 regasm,这就是将类公开为 COM 对象以在 VBA 或任何支持 COM 的系统中使用的魔法。
请注意,上面的复选框只是为了您在开发机器上的方便。它不会更改、修改或对代码或项目做任何事情。
现在要将此代码部署到其他机器,您必须提供批处理文件或其他方式来执行 regasm.exe 命令。正如我所指出的,与 .dll 方法相比,这些确实使部署更加麻烦,但是您在此处权衡了其他易于编码的问题。
至此,编译(构建)上述内容。
完成此操作后,您现在可以在 VBA 编辑器中找到,您可以转到 tools->references,然后您会发现您的项目作为已注册的 COM 对象在 VBA 中使用。
您会看到:(我的项目称为 Testcom2.

请注意,一旦您设置了此引用,如果您进行更改或重新编译 .net 项目,则必须退出 excel。(因为一旦您设置了此引用,EXCEL 将被锁定并使用该 .dll)。所以请记住,如果您要重新编译 .net 代码,请确保退出 Excel。
我对你的代码做了一些修改,因为函数返回一个值,而你总是返回 0。如果你愿意,你可以使用调用并使用 Sub,但是你在 vb.net 中定义了函数并且没有定义 sub。
所以在 VBA 中,我们现在有这个:
Sub TEst55()
Dim cMySquare As New TestCom2.Class1
Dim a As Double
Dim b As Double
a = 10
b = cMySquare.Square(a)
Debug.Print b
End Sub
请注意,当我键入时,甚至 intel-sense 是如何工作的,因此该函数在 VBA 中显示为一种方法。

甚至在您输入 VBA 时也会显示类型和参数,例如:

在 VBA 中按 f5 运行代码,我们得到以下输出:
100