我对此感到非常沮丧,并且迫切需要帮助。我之前在其他工作簿中使用过此代码没有问题。试图复制它,替换新文件的变量和工作簿特定信息,只是遇到这个愚蠢的错误(在包含' 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'
此宏还有更多内容,但这与当前问题相关。