在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中運行記錄宏時運行時錯誤

回答

相關問題