VBA调用PIVOTDATENZUORDNEN时Worksheet.Evaluate返回错误2015求助

以下是导致Worksheet.Evaluate执行GETPIVOTDATA公式返回2015错误的常见原因及对应解决方法：

• 公式字符串未正确转义双引号
  手动输入的公式中包含的双引号，在VBA字符串里必须用两个双引号""转义。比如公式里的"OE"，在VBA构造的strFormula中需要写成""OE""。如果漏转义，Evaluate会解析失败，返回2015错误（对应单元格的#VALUE!）。

• 外部工作簿引用格式不规范
  引用old.xlsx的数据透视表时，Evaluate对跨工作簿引用的格式要求更严格：

  • 确保目标工作簿处于打开状态；
  • 工作簿名称需用方括号包裹，如[old.xlsx]Sheet1!$A$1；
  • 若工作簿名称含空格，需额外加单引号，如'[old.xlsx]Sheet Name'!$A$1。

• GETPIVOTDATA参数存在细微错误
  即使手动输入正常，VBA构造公式时可能出现字段名称拼写错误（大小写、空格）、参数顺序颠倒等问题。建议用Debug.Print strFormula输出构造后的公式，复制到单元格中测试，对比手动输入的公式是否完全一致。

• 替换为Application.Evaluate执行
  Worksheet.Evaluate在处理跨工作簿公式时兼容性有限，换成Application.Evaluate(strFormula)试试，它的解析范围覆盖整个Excel应用程序，对复杂公式的支持更好。

• 日期参数格式不匹配
  构造日期参数时，避免直接使用文本格式日期（如"2024-05-20"），建议用DATE函数构造，避免区域设置差异导致解析错误。例如：

  dateVal = DateSerial(2024, 5, 20)
  strFormula = strFormula & ", ""日期"", DATE(" & Year(dateVal) & "," & Month(dateVal) & "," & Day(dateVal) & "))"
  

示例代码片段 #

Dim strFormula As String
Dim oeVal As String, locVal As String, qualVal As String, targetDate As Date

' 赋值变量
oeVal = "OE001"
locVal = "Beijing"
qualVal = "High"
targetDate = DateSerial(2024, 5, 20)

' 构造转义后的GETPIVOTDATA公式
strFormula = "GETPIVOTDATA(""销售额"", [old.xlsx]PivotSheet!$A$1, " & _
             """OE"", """ & oeVal & """, " & _
             """location"", """ & locVal & """, " & _
             """qual"", """ & qualVal & """, " & _
             """日期"", DATE(" & Year(targetDate) & "," & Month(targetDate) & "," & Day(targetDate) & "))"

' 执行公式并处理结果
Dim result As Variant
result = Application.Evaluate(strFormula)

If Not IsError(result) Then
    Debug.Print "提取结果：" & result
Else
    Debug.Print "错误代码：" & result
End If

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