在excel中运行记录宏时运行时错误

我确实在excel中记录了一些宏，并且它完美地工作，直到我记录了一个创建数据透视表的宏，但在此之后，我面临“运行时错误'5'无效过程调用或参数“当我运行这个宏！我试图将文件的扩展名更改为.xlsm，但没有奏效！在VB
在excel中运行记录宏时运行时错误

我不是很内行以下是代码

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行！

有什么想法？

来源

2014-03-26 Luara

你能解释一下代码试图用文字做什么吗？即。从sheet1上的数据创建数据透视表，按照批准顺序按日期排序，更改字段以显示总计值而不是计数等。 – Calico

在Excel中，您可以按ALT-F11进入VBA窗口。然后，您可以使用菜单栏中的Debug-> Compile VBA Project命令来查找错误。

此外，请务必在每个VBA源文件的顶部放置“Option Explicit”，因为这将确保您在使用它们之前声明了变量等，并且可以帮助您找到潜在的代码问题。

此外，您可以在Sub pivot（）上设置一个断点并在调试器中遍历代码，以找出运行时错误（如果上述建议不起作用）。

来源

2014-03-26 12:57:27 dcp

在excel中运行记录宏时运行时错误

回答

相关问题