PowerShell执行Excel VBA宏报错：无法调用空值表达式方法

首先看你的报错：You cannot call a method on a null-valued expression发生在$excel.ActiveWorkbook.Save()，这说明此时ActiveWorkbook是null，大概率有两个核心原因：变量名笔误导致工作簿未成功打开，或者依赖ActiveWorkbook的不可靠性，结合你提到宏运行约1分钟，我们一步步拆解问题并解决：

1. 先修正代码中的变量名错误 #

你的代码里定义了$MacroName1 = "Extraction_Tool.xlsm"，但后续拼接路径时用的是未定义的$MacroName，这会导致$currentExecutingPath变成无效路径，直接让$excel.Workbooks.Open()打开失败，$Workbook对象为null，后续ActiveWorkbook自然也是null，触发报错。

先统一变量名并增加路径验证：

$MacroFileName = "Extraction_Tool.xlsm"
$currentExecutingPath = $fullPathIncFileName.Replace($currentScriptName, "") + $MacroFileName

# 提前验证文件是否存在，避免无效打开操作
if (-not (Test-Path $currentExecutingPath)) {
    Write-Error "目标Excel文件不存在：$currentExecutingPath"
    exit 1
}
$Workbook = $excel.Workbooks.Open($currentExecutingPath)

2. 放弃依赖ActiveWorkbook，直接使用已打开的$Workbook对象 #

ActiveWorkbook是当前激活的工作簿，宏运行过程中可能会因为逻辑切换（比如宏打开了其他文件）导致激活状态改变，进而变成null。而我们已经通过$Workbook = $excel.Workbooks.Open(...)获取了目标工作簿的直接引用，用这个引用操作更稳定：

# 替换原来的$excel.ActiveWorkbook.Save()
$Workbook.Save()
# 关闭工作簿也直接用$Workbook变量
$Workbook.Close()

3. 确保宏完全运行完成后再执行保存 #

默认情况下，$excel.Run("refreshall")是同步执行的——PowerShell会等待宏跑完才会执行下一行代码。但如果你的VBA宏包含异步操作（比如用Application.OnTime延迟执行、调用了异步外部接口），Run方法会提前返回，导致后续操作时工作簿仍在处理中。

如果宏是异步的，你可以在VBA里加一个“完成标记”：

• 在VBA宏的最后一行添加：ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "MacroCompleted"
• 然后在PowerShell里循环检查这个标记，直到宏完成：

$excel.Run("refreshall")

# 设置超时时间（比如120秒，可根据宏运行时长调整）
$timeoutSeconds = 120
$startTime = Get-Date

# 循环等待宏完成
while ($Workbook.Sheets("Sheet1").Range("A1").Value -ne "MacroCompleted") {
    Start-Sleep -Seconds 2
    if ((Get-Date) - $startTime -gt [TimeSpan]::FromSeconds($timeoutSeconds)) {
        Write-Error "宏运行超时，已终止等待"
        break
    }
}

# 确认完成后再保存
$Workbook.Save()

4. 完整修正后的代码 #

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false # 调试时可设为$true查看Excel窗口
$excel.DisplayAlerts = $false

$MacroFileName = "Extraction_Tool.xlsm"
$currentExecutingPath = $fullPathIncFileName.Replace($currentScriptName, "") + $MacroFileName

try {
    # 验证文件存在
    if (-not (Test-Path $currentExecutingPath)) {
        throw "目标Excel文件不存在：$currentExecutingPath"
    }

    $Workbook = $excel.Workbooks.Open($currentExecutingPath)
    # 运行宏
    $excel.Run("refreshall")

    # 若宏为异步，取消下面的注释并添加等待逻辑
    # $timeoutSeconds = 120
    # $startTime = Get-Date
    # while ($Workbook.Sheets("Sheet1").Range("A1").Value -ne "MacroCompleted") {
    #     Start-Sleep -Seconds 2
    #     if ((Get-Date) - $startTime -gt [TimeSpan]::FromSeconds($timeoutSeconds)) {
    #         throw "宏运行超时"
    #     }
    # }

    # 保存并关闭工作簿
    $Workbook.Save()
    $Workbook.Close()
}
catch {
    Write-Error "执行出错：$_"
}
finally {
    # 释放COM对象，避免Excel进程残留后台
    $excel.Quit()
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
    [GC]::Collect()
    [GC]::WaitForPendingFinalizers()
}

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