excel - 如何使用Excel VBA宏将变量值插入getpivotdata公式

Question

所以我了解到数据透视表很棘手，字符串变量语法也很棘手，VBA 中引号的使用也很棘手。我正在尝试(但失败了)使用这三个!

我正在尝试从一个非常大/复杂的数据透视表中收集大量作业号的数据。我想在 A1 中选择一个工号，并让数据透视表公式自动更新为所选工号以返回数字结果。

我目前遇到两个问题:1)在“getpivotdata”公式的引号中获取作业编号的语法不起作用，2)执行代码时会删除作业编号中的零。

下面列出了我的代码，当我执行它时，我希望看到这个公式填充在 A2 中:

=GETPIVOTDATA("Part Number",' Parts Status '!$A$8,"CHAR_FIELD3","11-008","MATERIAL STATUS MASTER","Avail")

而是得到:

=GETPIVOTDATA("Part Number",' Parts Status '!$A$8,"CHAR_FIELD3",11-8,"MATERIAL STATUS MASTER","Avail")

我的代码在这里

Sub Macro1()

Dim jobnumber As String

jobnumber = Worksheets("Macros test").Cells(1, "A").Value

Sheets("Macros test").Select
    Range("A2").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Part Number"",' Parts Status '!R8C1,""CHAR_FIELD3""," & jobnumber & ",""MATERIAL STATUS MASTER"",""Avail"")"

Answer 1

如果您需要那里的引号，请将其更改为:

"=GETPIVOTDATA(""Part Number"",' Parts Status '!R8C1,""CHAR_FIELD3"",""" & jobnumber & """,""MATERIAL STATUS MASTER"",""Avail"")"

此外，您可以在设置 jobnumber 后添加一个临时消息框，以确保它是您所认为的:

MsgBox(jobnumber)