Excel VBA插入切片器错误

Question

我当前正在运行一个宏，该宏创建一个数据透视表，并且希望旁边有切片器。但是，运行我的宏会在SlicerCaches.Add行上产生应用程序定义或对象定义的错误。我的代码中相关部分的摘要：

Dim wb As Workbook
Dim bTable As Worksheet
Dim PTable As PivotTable
Dim PCache As PivotCache
Dim PRange As Range

Set wb = ActiveWorkbook
Set bTable = Sheets(2)

Set PTable = bTable.PivotTables.Add(PivotCache:=PCache, _
TableDestination:=bTable.Range("E5"), TableName:="ExamplePivotTable")

wb.SlicerCaches.Add(PTable, "Field1").Slicers.Add bTable

尽管我了解什么是应用程序/对象定义的错误，但我真的不确定此错误来自何处。我正在运行excel 2010并使用.Add2会产生错误：“对象不支持此属性或方法”。