VBA CalculatedFields枢轴使用variables作为字段引用?

我知道如何通过硬编码引用到数据透视表中的特定字段来创build计算字段,但我遇到麻烦(获得1004错误)使用一个variables,其中包含字段引用的名称的string,如下所示:

这是我想要做的,但它不工作/错误!

Dim currMonth As String currMonth = "Jan-14" ActiveSheet.PivotTables("PivotTable6").CalculatedFields.Add "YTD2014", _ currMonth, True 

这工作正常

 ActiveSheet.PivotTables("PivotTable6").CalculatedFields.Add "YTD2014", _ "='Jan-14'", True 

currMonth被初始化为:

 currMonth = "Jan-14" 

但应该是:

 currMonth = "='Jan-14'" 

你看得到差别吗?