EXCEL VBA：試圖使用UsedRange時如何解決數據透視表錯誤？

我正在嘗試在列上爲Gas創建一個簡單的數據透視表，該行的短劃線編號以及輸入的數量。我一直在研究這個問題，並找不到解決方案。當我嘗試運行我的代碼時，我總是收到EXCEL VBA：試圖使用UsedRange時如何解決數據透視表錯誤？

錯誤1004：應用程序定義的錯誤或對象定義的錯誤。

這裏是我的代碼：

Sub CreatePivotTable() 

Dim sheet As Worksheet 
Set sheet = Worksheets("mac3") 

Sheets.Add.Name = "Table" 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ 
sheet.UsedRange, Version:=xlPivotTableVersion14). _ 
CreatePivotTable TableDestination:="Table!R3C1", TableName:="Pvt" _ 
, DefaultVersion:=xlPivotTableVersion14 

    Sheets("Table").Select 
    Cells(3, 1).Select 
    With ActiveSheet.PivotTables("Pvt").PivotFields("Gas") 
     .Orientation = xlColumnField 
     .Position = 1 
    End With 
    With ActiveSheet.PivotTables("Pvt").PivotFields("Dash") 
     .Orientation = xlRowField 
     .Position = 1 
    End With 
    ActiveSheet.PivotTables("Pvt").AddDataField ActiveSheet.PivotTables(_ 
     "Pvt").PivotFields("Qty"), "Sum of Qty", xlSum 
    Range("B4").Select 
    Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _ 
     False, True, False, False) 
End Sub

來源

2017-06-14 cthallofamer

哪一行代碼引發該錯誤？ – ojf

@ojf我找到了問題！ 'ActiveWorkbook.PivotCaches.Create（SourceType：= xlDatabase，SourceData：= _ sheet.UsedRange，Version：= xlPivotTableVersion14）。 _ CreatePivotTable TableDestination：=「Table！R3C1」，TableName：=「Pvt」_ ，DefaultVersion：= xlPivotTableVersion14' Theres something wrong with that – cthallofamer

你已經有一個「列兵」在您的工作表？它可能會導致此錯誤，在這種情況下，您可以嘗試將表格和表名稱更改爲其他內容

來源

2017-08-09 07:21:26 SayaliT

EXCEL VBA：試圖使用UsedRange時如何解決數據透視表錯誤？

回答

相關問題