一个string中的Excel VBA公式

试图把一个公式放在一个string中，并不能使它工作。 有人可以帮我把它变成一个string？ 我知道我需要在地方做“＆”，我只是不知道在哪里….

Dim form As String form = =IFERROR(GETPIVOTDATA("[Measures].[Sum of Amount]",Pivot!$A$3,"[qAllData].[Year]","[qAllData].[Year].&[2.016E3]","[qAllData].[Month Name]","[qAllData].[Month Name].&["&$B9&"]","[qAllData].[PRODUCT_CODE]","[qAllData].[PRODUCT_CODE].&["&C$3&"]","[qAllData].[Product Name]","[qAllData].[Product Name].&["&C$4&"]")-C8-C7-C6-C5,0) 

Answer 1

如果您的表单完全符合您在电子表格中的内容，但是您想用VBA插入，则只需：

 Dim form As String form = "=IFERROR(GETPIVOTDATA(""[Measures].[Sum of Amount]"",Pivot!$A$3,""[qAllData].[Year]"",""[qAllData].[Year].&[2.016E3]"",""[qAllData].[Month Name]"",""[qAllData].[Month Name].&[""&$B9&""]"",""[qAllData].[PRODUCT_CODE]"",""[qAllData].[PRODUCT_CODE].&[""&C$3&""]"",""[qAllData].[Product Name]"",""[qAllData].[Product Name].&[""&C$4&""]"")-C8-C7-C6-C5,0)" 

这简单地replace了每个" by ""然后把整个东西用引号括起来，VBA接受它作为一个有效的公式，尽pipe我不确定这是你真正想要的。

Answer 2

如果它是一个工作公式，你只是想把它作为一个Stringvariables，所有你需要做的就是开始和结束它用双引号（ " ），然后加倍所有内部引号（ "" ），如下所示：

 form = "=IFERROR(GETPIVOTDATA(""[Measures].[Sum of Amount]"",Pivot!$A$3,""[qAllData].[Year]"",""[qAllData].[Year].&[2.016E3]"",""[qAllData].[Month Name]"",""[qAllData].[Month Name].&[""&$B9&""]"",""[qAllData].[PRODUCT_CODE]"",""[qAllData].[PRODUCT_CODE].&[""&C$3&""]"",""[qAllData].[Product Name]"",""[qAllData].[Product Name].&[""&C$4&""]"")-C8-C7-C6-C5,0)"