编辑枢轴过滤器

Question

美好的一天：

我有以下代码：

Sub pvtfilttest()

On Error Resume Next

Dim dt As String
dt = Sheets("A").Range("D1").Value
With ActiveSheet.PivotTables("PivotTable6").PivotFields("[Time].[Month Name].[Month Name]")

.ClearAllFilters
.PivotFilters.Add Type:=xlCaptionEquals, Value1:=dt
End With

End Sub

where Range("D1") is August or dt = August.

上面的代码运行了，但是以某种方式选择了“月名称”过滤器下的所有字段，而不仅仅是8月。

我要去哪里错了？