Vba 在excel中运行录制的宏时出现运行时错误

我确实在excel中录制了一些宏，它工作得非常好，直到我录制了一个宏来创建数据透视表，但在那之后，我在运行此宏时遇到了“运行时错误'5'无效的过程调用或参数”！ 我试图将文件的扩展名更改为.xlsm，但没有成功

我对VB不是很精通
下面是代码

Sub pivot()
'
' pivot Macro
'

'
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "dynamictable", Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="All Wanting!R10C11", TableName:="PivotTable6", _
    DefaultVersion:=xlPivotTableVersion14

Sheets("All Wanting").Select
Cells(10, 11).Select
With ActiveSheet.PivotTables("PivotTable6").PivotFields("Date")
    .Orientation = xlRowField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
    "PivotTable6").PivotFields("Date"), "Count of Date", xlCount
With ActiveSheet.PivotTables("PivotTable6").PivotFields("Type")
    .Orientation = xlColumnField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
    "PivotTable6").PivotFields("Date"), "Count of Date2", xlCount
With ActiveSheet.PivotTables("PivotTable6").PivotFields("Count of Date2")
    .Caption = "Sum of Date2"
    .Function = xlSum
End With
Range("K8").Select

End Sub

当我调试时，我在前4行看到错误

---

有什么想法吗

在Excel中，您可以按ALT-F11进入VBA窗口。然后，可以使用菜单栏中的“调试->编译VBA项目”命令查找错误

此外，请确保在每个VBA源文件的顶部放置“Option Explicit”，因为这将确保在使用变量之前声明变量，并帮助您发现潜在的代码问题

---

此外，如果上述建议没有帮助，您还可以在Sub pivot（）上设置断点，并在调试器中逐步检查代码，以找出运行时错误。

您可以用文字解释代码试图执行的操作吗？例如，从表1上的数据创建透视表，按日期顺序排序，更改字段以显示合计值而不是计数等。。。