我正在创建一个宏，它将从一张工作表中获取原始数据，并在第二张工作表上使用该数据创建一个数据透视表，到目前为止，这是一个简单的过程。但是，我遇到的困难是让日期在数据透视表上排序。这似乎是一个常见问题，答案各不相同。我搜索了各种资源试图找到解决方案，我想我正在寻找可以解决问题的方法。我目前的障碍是我无法使用“For Each...”语句来识别对象。

我是 VBA 的新手，所以欢迎提出任何建议。这是我目前所拥有的：

Dim pvtFld As PivotField
Dim pvtTable As PivotTable
    For Each pvtFld In pvtTable
    If pvtFld.Name Like "*END DATE*" Then
     pvtFld.NumberFormat = "m/d/yyyy"
       Else: pvtFld.NumberFormat = "m/d/yy"
    End If
    Next
End Sub

“For Each pvtFld In pvtTable”是我得到 404 object not defined 错误的那一行。 我认为我的 Dim 语句没有正确定义组，或者我错误地定义了组。

我是 VBA 新手，所以可以随意拆开它，我是来学习的。谢谢！