刷新数据透视表的运行时错误 1004

Question

我创建了可以刷新工作表中所有数据透视表的宏。相同的代码在一张纸上有效，但在另一张纸上无效。我尝试在调试模式下运行它，它在前几个表中运行良好，在中间有一个表出现错误：

运行时错误“1004”：数据透视表类的 RefreshTable 方法 失败了。

此工作表中有 20 个数据透视表，但有效的数据透视表是 26 个。非常感谢您的帮助。

Sub Refresh_Pivots2()

Dim PL As PivotTable

Worksheets("Incidents Pivots").Activate

    For Each PL In ActiveSheet.PivotTables

    PL.RefreshTable

    Next PL

End Sub

我刚刚尝试了另一个代码

Sub Refresh_Incidents()

Worksheets("Incidents Pivots").Activate

Dim A

A = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20")

For i = 0 To 19

ActiveSheet.PivotTables(A(i)).RefreshTable

Next i

End Sub

如果我从 i=0 开始，它会给出一个错误，但是当它切换到 i=1 时它可以工作。任何想法这张表有什么问题。我可以手动刷新它。

Answer 1

正如 Rory 所说，一个表的源数据有问题，它使用 A1 而不是 R1C1 表示法。我在 Excel Option->Formulas->R1C1 参考样式中更改了它，现在宏可以工作了。

Answer 2

您是否检查过数据透视表数据源。有时也会由于数据透视缓存而发生此类问题。在刷新枢轴之前调用以下代码。

Sub PivotCacheClear()
    Dim pc As PivotCache
    Dim ws As Worksheet
    With ActiveWorkbook
        For Each pc In .PivotCaches
            pc.MissingItemsLimit = xlMissingItemsNone
        Next pc
    End With
End Sub 

Answer 3

我有一个代码可以自动调整数据透视表中的数据，然后刷新数据透视表，它可能会阻止你：

Sub AdjustPivotDataRange(ByVal SheetName As String)

Dim Data_sht As Worksheet
Dim Pivot_sht As Worksheet
Dim StartPoint As Range
Dim DataRange As Range
Dim PivotName As String
Dim NewRange As String

  Sheets("All 2014 to Current Date").Visible = True
'Set Variables Equal to Data Sheet and Pivot Sheet
  Set Data_sht = Worksheets("All 2014 to Current Date")
  Set Pivot_sht = Worksheets(SheetName)

'Enter in Pivot Table Name
  PivotName = "PivotTable1"

'Dynamically Retrieve Range Address of Data
  Set StartPoint = Data_sht.Range("A6")
  LastRow = Data_sht.Cells(Rows.Count, 1).End(xlUp).Row
  LastColumn = Data_sht.Cells(LastRow, Columns.Count).End(xlToLeft).Column
  Data_sht.Activate
  Set DataRange = Data_sht.Range(StartPoint, Cells(LastRow, LastColumn))

  NewRange = Data_sht.Name & "!" & _
    DataRange.Address(ReferenceStyle:=xlR1C1)

'Make sure every column in data set has a heading and is not blank (error prevention)
  If WorksheetFunction.CountBlank(DataRange.Rows(1)) > 0 Then
    MsgBox "One of your data columns has a blank heading." & vbNewLine _
      & "Please fix and re-run!.", vbCritical, "Column Heading Missing!"
    Exit Sub
  End If

'Change Pivot Table Data Source Range Address
  Pivot_sht.PivotTables(PivotName).ChangePivotCache _
    ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=NewRange)

'Ensure Pivot Table is Refreshed
  Pivot_sht.PivotTables(PivotName).RefreshTable
  Sheets("Rolling 12-mo.").Select
  Sheets("All 2014 to Current Date").Visible = False
'Complete Message
  'MsgBox PivotName & "'s data source range has been successfully updated!"

End Sub

Answer 4

connection property=>usage=>enable background refresh，请确保它没有被选中。