VBA數據透視表錯誤：對象_Global的錯誤1004範圍失敗

Question

我在VBA中創建一個數據透視表，它首先計算範圍，然後根據該數據透視表創建一個表。但是，它顯示錯誤，所以有人可以糾正它嗎？它顯示：

對象錯誤1004範圍_Global失敗。

Sub Pivottable() 

    Dim NewRange As Range 
    Dim n As Long 

    Sheets("DUT1_Test51_excel").Select 

    n = Worksheets("DUT1_Test51_excel").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count 

    Set NewRange = Range("A3" & ":" & "Q" & n) 

    ActiveWorkbook.PivotCaches.Create(_ 
    SourceType:=xlDatabase, _ 
    SourceData:=Range(NewRange), _ 
    Version:=xlPivotTableVersion14). _ 
     CreatePivotTable _ 
     TableDestination:="DUT1_Test51_excel!R3C22", _ 
     TableName:="PivotTable1", _ 
     DefaultVersion:=xlPivotTableVersion14 

    Sheets("DUT1_Test51_excel").Select 
    Cells(3, 22).Select 

    ActiveWorkbook.ShowPivotTableFieldList = True 
    ActiveSheet.PivotTables("PivotTable1").AddDataField _ 
     ActiveSheet.PivotTables("PivotTable1").PivotFields("20431"), "Average of 20431", xlAverage 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("time") 
     .Orientation = xlRowField 
     .Position = 1 
    End With 

End Sub 

Answer 1

試試這個（改變NewRange爲String）：

Sub Pivottable() 

    Dim NewRange As String 
    Dim n As Long 

    Sheets("DUT1_Test51_excel").Select 

    n = Worksheets("DUT1_Test51_excel").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count 

    NewRange = "A3:Q" & n 


    ActiveWorkbook.PivotCaches.Create(_ 
    SourceType:=xlDatabase, _ 
    SourceData:=Range(NewRange), _ 
    Version:=xlPivotTableVersion14). _ 
     CreatePivotTable _ 
     TableDestination:="DUT1_Test51_excel!R3C22", _ 
     TableName:="PivotTable1", _ 
     DefaultVersion:=xlPivotTableVersion14 

    Sheets("DUT1_Test51_excel").Select 
    Cells(3, 22).Select 

    ActiveWorkbook.ShowPivotTableFieldList = True 
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("20431"), "Average of 20431", xlAverage 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("time") 
     .Orientation = xlRowField 
     .Position = 1 
    End With 

End Sub