Question

我确实在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行看到错误！

任何想法？！

Answer 1

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

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

此外，您可以在Sub pivot（）上设置断点，并在调试器中逐步执行代码，以便在上述建议无效的情况下找出运行时错误。

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

1 个答案: