VBA项目调用.NET哈希类仅HMACSHA1可用其余报错问题咨询

• VBA调用.NET类需满足两个前提才能通过CreateObject成功实例化：一是目标类被标记了[ComVisible(true)]特性，二是系统中注册了对应的ProgID。
• HMACSHA1是.NET Framework早期版本就完成了完整COM互操作适配的类，因此可以正常调用。
• SHA1、SHA512属于抽象基类，本身没有提供可直接实例化的COM对外接口，调用时报429错误；HMACSHA512的报错是因为其默认构造函数未对COM暴露，或实例化后参数校验触发了.NET运行时异常。

方案1：使用Windows原生CryptoAPI实现（推荐，兼容性最高） #

不需要依赖.NET环境配置，直接调用系统自带的加密接口，支持所有主流哈希算法，实现逻辑如下：

' 先声明所需的API函数（32/64位Office适配需调整指针类型）
Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long
' 其余API省略，完整计算流程为：
' 1. 调用CryptAcquireContext获取CSP上下文
' 2. 导入自定义密钥
' 3. 创建哈希对象并指定算法ID（SHA256对应ID为0x0000800C，SHA512对应ID为0x0000800D）
' 4. 完成哈希计算后调用Base64编码逻辑输出结果即可

方案2：纯VBA代码实现哈希算法 #

完全不依赖外部组件，直接用VBA编写对应哈希算法的逻辑，适合需要适配不同版本Office、且不能修改系统配置的场景，可直接复用已公开的VBA版SHA1、SHA256、SHA512、HMAC系列实现代码。

方案3：调整.NET类调用方式 #

如果必须使用System.Security.Cryptography下的类，可改为调用HashAlgorithm.Create方法指定算法名称，而非直接CreateObject对应类名，示例如下：

Set enc = CreateObject("System.Security.Cryptography.HashAlgorithm")
Set enc = enc.Create("HMACSHA256")
enc.Key = asc.Getbytes_4(sSharedSecretKey)

注意该方案需要设备安装.NET Framework 4.0及以上版本，且对应类的COM互操作组件已正确注册。

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