VBA宏粘贴显示#VALUE!而非Factset FDS公式计算值问题

核心问题分析 #

原代码仅执行单工作表计算，且依赖Select/Selection操作易出错，加上源公式未彻底刷新，导致粘贴结果为#VALUE!。以下是针对性修正方案：

修正后的VBA代码 #

Dim sourceWB As Workbook
Dim sourceWS As Worksheet
Dim targetWB As Workbook

' 引用源工作簿和工作表，避免Activate/Select操作
Set sourceWB = Workbooks.Open(Filename:="xxxxxx", Password:="xxxxx", UpdateLinks:=xlUpdateLinksAlways)
Set sourceWS = sourceWB.Sheets("xxxxx")
Set targetWB = Workbooks("xxxx")

' 强制启用计算并全工作簿刷新公式结果
sourceWS.EnableCalculation = True
sourceWB.Calculate ' 全工作簿计算比单工作表更彻底，适配跨表/外部引用公式

' 复制已使用区域的计算值到目标位置
sourceWS.UsedRange.Copy
targetWB.ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues

' 清理剪贴板并关闭源工作簿（按需设置是否保存）
Application.CutCopyMode = False
sourceWB.Close SaveChanges:=False

关键优化点 #

• 避免Select/Selection：直接用对象引用操作，提升代码稳定性和执行效率
• 全工作簿计算：sourceWB.Calculate确保所有关联公式（包括跨表、外部引用）都完成刷新
• 指定UsedRange：仅复制有内容的区域，避免无效空单元格占用资源
• 更新外部链接：打开源工作簿时添加UpdateLinks:=xlUpdateLinksAlways，确保外部引用公式能获取最新数据

额外排查项 #

• 手动打开源工作簿，确认公式本身能正常计算（排除公式逻辑错误）
• 若源公式引用其他未打开的工作簿，确保目标文件路径正确且可访问

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