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