运行错误1004不能取得类WORKSHEET的PIVOTTABLES属性
分类:Excel
最初代码是:
For Each pt In ActiveSheet.PivotTables
If pt.Name = i Then
Range(Sheets(currentsheet).PivotTables(pt).TableRange2.Cells(1).Address).Select
result = 1
End If
Next
代码运行报错,把Sheets(currentsheet).PivotTables(pt)修改成 Sheets(currentsheet).PivotTables(pt.Name),运行成功。
总结,遇到这种错误应该是没有找到指定的透视表,需要检查工作表名,透视表名。确保名称部分应该是字符,而不是对象。