Excel数据透视表宏导致“无效的过程”调用或参数'错误

时间:2018-06-15 14:37:28

标签: excel vba excel-vba pivot-table excel-2013

我对此感到非常沮丧,并且迫切需要帮助。我之前在其他工作簿中使用过此代码没有问题。试图复制它,替换新文件的变量和工作簿特定信息,只是遇到这个愚蠢的错误(在包含' Set objPT = ...'的行)。我甚至尝试直接从Excel VBA教科书中复制代码来创建数据透视表,但仍然遇到了同样的愚蠢错误。我无法弄清楚我做错了什么。

Sub SetupPivotTable()

    Dim PTWS As Worksheet
    Dim objPT As PivotTable
    Dim objPC As PivotCache

    Range("Q3").Activate
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    bottomRow = Selection.Address

'    MsgBox bottomRow

    Range("A3", bottomRow).Select
    Selection.Name = "UTS_Data"

    Sheets.Add After:=Worksheets(Worksheets.Count)
    Set PTWS = ActiveSheet
    ActiveSheet.Name = "Graph"
    Sheet1.Activate

    Set objPC = ActiveWorkbook.PivotCaches.Create _
        (xlDatabase, "UTS_Data")
    Set objPT = objPC.CreatePivotTable(PTWS.Range("a3"), _
        TableName:="UTS_PT")

End Sub

或者,我尝试使用它:

    Set objPT = objPC.CreatePivotTable _
        TableDestination:="'Graph'!R3C1", TableName:="UTS_PT"

它反而出现了预期的声明结束' on' TableDestination'

此宏还有更多内容,但这与当前问题相关。

0 个答案:

没有答案