gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 20:12:40 25 4
gpt4 key购买 nike

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

Run-time error '1004': RefreshTable method of PivotTable class failed.



此表中有 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 时它会起作用。任何想法这张表有什么问题。我可以手动刷新它。

最佳答案

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

关于vba - 刷新数据透视表的运行时错误 1004,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34509313/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com