使用PowerShell统计Excel非空单元格数量的问题求助

解决方法 #

你之前的问题主要出在2处：一是WorksheetFunction的调用位置错误，二是传参规则不对，同时原脚本还存在变量笔误和COM对象未释放的问题，修正后可直接运行的完整代码如下：

# 替换为你的Excel文件实际绝对路径
$FileDir = "C:\xxx\test.xlsx"
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
# 禁用弹窗避免宏、受保护视图等场景卡住脚本
$excel.DisplayAlerts = $false

$Workbook = $excel.Workbooks.Open($FileDir)
$Worksheet = $Workbook.Worksheets.Item(1)
# 选中第8行作为统计范围
$Range1 = $Worksheet.Range("8:8")

# 正确调用COUNTA统计非空单元格
$nonEmptyCount = $excel.WorksheetFunction.CountA($Range1)
# 输出统计结果
$nonEmptyCount

$Workbook.Save()
$Workbook.Close()
$excel.Quit()

# 释放COM对象，避免Excel进程残留后台占用内存
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Range1) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Worksheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[GC]::Collect()
[GC]::WaitForPendingFinalizers()

错误说明 #

• 你之前调用的$Range1.Count返回16384是正常现象，该属性返回的是指定范围内的所有单元格总数，和单元格是否有内容无关，Excel单行最大列数就是16384，所以会得到这个结果。
• 原写法$Range1.WorksheetFunction.CountA("")存在两个错误：
  • WorksheetFunction是Excel应用实例的方法，不属于单个Range对象，需要从$excel变量下调用
  • CountA的参数需要传入你要统计的Range对象，不需要传空字符串

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