使用宏过滤问题以在Excel 2010 VBA中创建数据透视表

我是VBA的新手，我正在尝试编写一个可以创建数据透视表的宏 . 我需要过滤各种字段，并尝试使用PivotFilters.Add和PivotItems只让某些东西通过......有时它可以工作，但有时它会抛出错误 . 以下代码工作得很好：

Sub CreatePivot()
Dim objTable As PivotTable, objField As PivotField

ActiveWorkbook.Sheets("CP Monthly Data").Select
Range("A1").Select
Set objTable = Sheet1.PivotTableWizard
objTable.Name = "Resource Requests"
objTable.InGridDropZones = True
objTable.RowAxisLayout xlTabularRow

Set objField = objTable.PivotFields("Company name")
objField.Orientation = xlRowField
objField.Position = 1

Set objField = objTable.PivotFields("Probability Status")
objField.Orientation = xlRowField
objField.Position = 2
objField.PivotItems("X - Lost - 0%").Visible = False
objField.PivotItems("X - On Hold - 0%").Visible = False
objField.AutoSort xlDescending, "Probability Status"

Set objField = objTable.PivotFields("Project")
objField.Orientation = xlRowField
objField.Position = 3

Set objField = objTable.PivotFields("Project manager")
objField.Orientation = xlRowField
objField.Position = 4

Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.AutoSort xlAscending, "Resource name"

Set objField = objTable.PivotFields("June, 2012")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "##"
objField.Caption = "June"

Set objField = objTable.PivotFields("Workgroup Name")
objField.Orientation = xlPageField
objField.PivotItems("ATG").Visible = False
objField.PivotItems("India - ATG").Visible = False
objField.PivotItems("India - Managed Middleware").Visible = False

Application.DisplayAlerts = True
End Sub

“资源名称”字段给我带来了问题 . 我只需要显示以“* TBD”开头的资源名称，并排除名称中包含“ATG”的资源名称 . 到目前为止，我尝试过以下方法：

Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.PivotFilters.Add xlCaptionContains, Value1:="TBD"
objField.PivotFilters.Add xlCaptionDoesNotContain, Value1:="ATG"
objField.AutoSort xlAscending, "Resource name"

返回“运行时错误'1004'：应用程序定义的错误或对象定义的错误

这不是我需要的，因为我还需要过滤掉名称中没有“TBD”的那些，但我也尝试过：

Set objField = objTable.PivotFields("Resource name")
objField.Orientation = xlRowField
objField.Position = 5
objField.PivotItems("*ATG*").Visible = False
objField.AutoSort xlAscending, "Resource name"

返回“运行时错误'1004'：无法获取PivotField类的PivotItems属性

我还尝试录制宏并根据我的代码检查结果 . 结果使用了我尝试过的PivotFilters.Add . 记录的宏和我的代码之间的主要区别是使用数据透视表向导，我开始怀疑这是否重要...我是新的，还记得吗？

有想法该怎么解决这个吗？我正在使用Excel 2010并花了几个小时搜索这个，我尝试过的任何东西都没有用 . 在此先感谢您的帮助!!