一. 简介
之前在介绍如何用C#创建VBA类库时，我们聊过怎么把.NET程序封装成COM组件。但有个关键问题——VBA没法直接引用.dll文件，必须先把它注册到系统里，VBA才能识别并调用。
由于VBA依赖Excel，而Excel有32位和64位两种版本，注册时就得分别处理：
- 32位Excel → 用
$env:WINDIR\Microsoft.NET\Framework\v4.0.*\RegAsm.exe - 64位Excel → 用
$env:WINDIR\Microsoft.NET\Framework64\v4.0.*\RegAsm.exe
RegAsm.exe是.NET框架自带的工具，一般路径都固定。为了脚本通用，最好同时注册32位和64位，这样无论用户用哪种版本的Excel都能正常工作。
注册成功后，RegAsm.exe会把.dll的相关信息写入注册表。效果如下图所示（图中可以看到ProgId和对应的GUID）：
$ProgId = "ToolLib.ToolCom"—— 就是之前文章中定义的ProgId{6143FB0B-9C17-4859-860C-6DA4A466ECD1}—— 这个.dll关联的GUID
二. 程序代码
2.1 管理员权限执行脚本
调用RegAsm.exe必须用管理员身份运行，否则会失败。所以脚本里需要加一段权限判断——如果当前用户不是管理员，就自动提权重新启动。
param(
[string]$originalScriptFolderPath
)
# 校验当前用户是否有管理员权限
function Test-IsAdmin {
$id = [System.Security.Principal.WindowsIdentity]::GetCurrent()
$principal = New-Object System.Security.Principal.WindowsPrincipal($id)
if ($principal.IsInRole([System.Security.Principal.WindowsBuiltInRole]::Administrator)) {
return $true
}
return $false
}
# 若没有管理员权限
if (-not (Test-IsAdmin)) {
Write-Host "未检测到管理员权限，正在尝试重新启动为管理员模式..." -ForegroundColor Yellow
# 暂停1秒钟, 显示文字
Start-Sleep -Seconds 1
# 以管理员方式启动当前脚本
Start-Process -FilePath "powershell.exe" `
-ArgumentList "-NoProfile -ExecutionPolicy RemoteSigned -File $($PSCommandPath) -originalScriptFolderPath $($PSScriptRoot)" `
-Verb RunAs
# 退出当前脚本, 防止打开多个窗口
exit
}
Write-Host "已成功以管理员权限运行PowerShell ...`n" -ForegroundColor Green
# 当以管理员权限运行脚本的时候, 作业目录默认会移动到【C:\WINDOWS\system32】下
# 我们手动将作业目录其移动到脚本所在的文件夹路径
if ($null -ne $originalScriptFolderPath) {
Set-Location $originalScriptFolderPath
}
2.2 自定义函数
注册COM时需要两个核心参数，先理清楚它们的用途：
/codebase：告诉COM组件.dll的绝对路径，注册表InprocServer32项下会写入这个路径。/tlb：生成类型库文件（.tlb），供VBA等客户端查看接口、方法和参数类型。这个参数不是必须的，但加上之后，VBA就能在【工具】→【引用】里找到你的.dll，实现早绑定。
function Register-Com {
param (
[string]$dllFullPath,
[string]$regAsmExeFullPath
)
$versionMsg = "32位"
if ($regAsmExeFullPath.Contains('Framework64')) {
$versionMsg = "64位"
}
$params = "`"$dllFullPath`" /codebase /tlb"
$result = $null
try {
$result = Start-Process $regAsmExeFullPath -ArgumentList $params -Wait -PassThru
if ($result.ExitCode -eq 0) {
Write-Host "${versionMsg}的dll注册成功"
}
}
catch {
Write-Host "${versionMsg}的dll注册失败: $($result.ExitCode)"
Write-Host "${versionMsg}的dll注册失败: $($_.Exception.Message)"
}
}
# 卸载Com
function Unregister-Com {
param (
[string]$dllFullPath,
[string]$regAsmExeFullPath
)
$versionMsg = "32位"
if ($regAsmExeFullPath.Contains('Framework64')) {
$versionMsg = "64位"
}
# 卸载Com所需的参数
$params = "`"$dllFullPath`" /unregister"
$result = $null
try {
$result = Start-Process $regAsmExeFullPath -ArgumentList $params -Wait -PassThru
if ($result.ExitCode -eq 0) {
Write-Host "${versionMsg}的dll卸载成功"
}
}
catch {
Write-Host "${versionMsg}的dll卸载失败: $($result.ExitCode)"
Write-Host "${versionMsg}的dll卸载失败: $($_.Exception.Message)"
}
}
验证COM是否存在时有个细节：32位PowerShell只能验证32位COM，64位PowerShell只能验证64位COM。现在大多数电脑都是64位系统，默认PowerShell也是64位的，所以验证64位直接调用即可；但验证32位时，需要手动指定32位PowerShell的路径。
function Test-32ComBoth {
param (
[string]$progId
)
# 32位Powershell的路径
$powershell32 = "$env:WINDIR\SysWOW64\WindowsPowerShell\v1.0\powershell.exe"
$script = @"
try {
New-Object -ComObject '$progId' | Out-Null
Write-Host '${progId}的32位COM存在'
} catch {
Write-Host '${progId}的32位COM不存在'
}
"@
# 测试32位com
& $powershell32 -NoProfile -Command $script
}
function Test-64ComBoth {
param (
[string]$progId
)
# 测试64位com
try {
New-Object -ComObject $progId | Out-Null
Write-Host "${progId}的64位COM存在"
}
catch {
Write-Host "${progId}的64位COM不存在"
}
}
2.3 注册代码
下面是完整的主逻辑：先定位.dll文件和RegAsm.exe路径，然后让用户选择安装还是卸载。两步都分别调用32位和64位的注册/卸载函数，最后验证COM是否存在，并检查注册表项。
# 要安装的.dll库的路径, 此处设定为和脚本同一级别的目录下
[string]$dllPath = ".\03-ToolLib.dll"
# .dll库的ProgId
$ProgId = "ToolLib.ToolCom"
# 获取32位和64位的RegAsm.exe的路径, 由于不知道具体版本, 所以使用了通配符
$regAsm32ExePath = "$env:WINDIR\Microsoft.NET\Framework\v4.0.*\RegAsm.exe"
$regAsm64ExePath = "$env:WINDIR\Microsoft.NET\Framework64\v4.0.*\RegAsm.exe"
# 获取RegAsm.exe的绝对路径
$regAsm32ExeFullPath = (Get-ChildItem "$regAsm32ExePath" -ErrorAction SilentlyContinue | Select-Object -First 1).FullName
$regAsm64ExeFullPath = (Get-ChildItem "$regAsm64ExePath" -ErrorAction SilentlyContinue | Select-Object -First 1).FullName
# 如果32位和64位的RegAsm.exe有任意一个不存在的话
if ((-not $regAsm32ExeFullPath) -or (-not $regAsm64ExeFullPath)) {
Write-Host "找不到RegAsm.exe文件..."
Pause
exit 1
}
# 通过相对路径获取绝对路径
$fullPathObj = Resolve-Path $dllPath -ErrorAction SilentlyContinue
if (-not $fullPathObj) {
Write-Host "找不到${dllPath}文件..."
Pause
exit 1
}
# 获取dll文件的绝对路径
$dllFullPath = $fullPathObj.Path
# 让用户选择要执行的操作
[string]$confirm = Read-Host "选择要执行的操作. 1. 安装依赖库 2. 卸载依赖库"
if ($confirm -eq "2") {
# 卸载32位的com
Unregister-Com -dllFullPath $dllFullPath -regAsmExeFullPath $regAsm32ExePath
# 卸载64位的com
Unregister-Com -dllFullPath $dllFullPath -regAsmExeFullPath $regAsm64ExePath
Pause
exit
} elseif ($confirm -ne "1") {
Write-Host "请输入 1 或者 2"
Pause
exit
}
# 注册32位的com
Register-Com -dllFullPath $dllFullPath -regAsmExeFullPath $regAsm32ExePath
# 注册64位的com
Register-Com -dllFullPath $dllFullPath -regAsmExeFullPath $regAsm64ExePath
# .dll类库中的命名空间和方法名
Test-32ComBoth "$ProgId"
Test-64ComBoth "$ProgId"
# 根据 ProgId 查询注册表路径是否存在
$RegistryProgIdPath = "Registry::HKEY_CLASSES_ROOT\$ProgId\"
if (-not (Test-Path $RegistryProgIdPath)) {
Write-Host "找不到${RegistryProgIdPath}注册表..."
Pause
exit 1
}
# 获取 .dll库的Guid
# {6143FB0B-9C17-4859-860C-6DA4A466ECD1}
$dllCLSID = (Get-Item "$RegistryProgIdPath\CLSID").GetValue("")
# 查询32位.dll对应的注册表
Get-ChildItem "Registry::HKLM\Software\Classes\WOW6432Node\CLSID\$dllCLSID" -ErrorAction SilentlyContinue
# 查询64位.dll对应的注册表
Get-ChildItem "Registry::HKEY_CLASSES_ROOT\CLSID\$dllCLSID" -ErrorAction SilentlyContinue
Pause
三. 注册成功
