PowerShell向.xlsm插入Excel公式不生效，仅显示公式文本如何解决

核心原因 #

出现该问题通常是以下4种情况导致：

1. 目标单元格的格式被设置为文本格式，写入的公式会被识别为普通字符串
2. 后台运行的Excel未自动触发公式计算，保存时仅保存了公式文本
3. Excel开启了「显示公式」模式，所有单元格只会展示公式内容而非结果
4. 保存xlsm格式文件时未指定对应的宏启用格式，导致文件属性异常

修复后的完整代码 #

$excelPath = '\a\bc\my.xlsm'
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false
# 关闭显示公式模式
$excel.ActiveWindow.DisplayFormulas = $false
$book = $excel.workbooks.Open($excelPath)

$savePath = '\x\y\z\my.xlsm'

$ws = $book.workSheets('MySheet')

# 先将目标单元格格式设置为常规
$ws.Cells(7, 33).NumberFormat = 'General'
# 写入公式
$ws.Cells(7, 33).Formula = '=LEFT(AG6,12)&RIGHT(1000+AG$1, 3)&RIGHT(AG6,5)'
# 强制触发工作表计算
$ws.Calculate()

# 保存时指定xlsm对应的宏启用格式（枚举值52对应xlOpenXMLWorkbookMacroEnabled）
$book.saveAs($savePath, 52)

$book.close($false)

# 关闭所有对象引用
$excel.Quit()
[void][System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

额外排查项 #

如果修改后仍不生效，可打开生成的文件按以下步骤检查：

• 选中目标单元格，按下F2进入编辑模式，再按回车，看公式是否能正常计算
• 检查Excel选项->公式中，是否勾选了「手动计算」，如果是可改为「自动计算」

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