在Excel中運行錄制的宏時出現運行時錯誤

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窗口。 然后，您可以使用菜單欄中的“調試”->“編譯VBA項目”命令來查找錯誤。

另外，請確保在每個VBA源文件的頂部放置“ Option Explicit”，因為這將確保您在使用變量之前聲明了變量，等等，並且將幫助您發現潛在的代碼問題。

此外，如果上述建議無濟於事，您可以在Subivot（）上設置一個斷點，並在調試器中單步執行代碼以找出運行時錯誤。