首次运行时自动刷新 Excel 中的数据透视表数据

Question

背景：我有 2 张 excel 表格：

1. 包含数据透视表和宏“刷新”
2. 来自 SQL 服务器的数据

宏包含用于自动刷新数据和更新数据透视表的 VBA 代码。数据每晚更新。以下是VBA代码：

 Sub Refresh()
 ActiveWorkBook.RefreshAll 
 End Sub

问题：

1. 当我第一次运行我的宏时，执行需要 5 分钟，我的 数据透视表未使用新数据更新。

2. 当我第二次运行它时，它执行得很好。

我希望我的宏在第一次运行时完美执行。

非常感谢任何帮助。

注意：这是我的第一篇文章，所以请容忍我的编辑。

Answer 1

我的问题已经解决了：

1. 我删除了宏并使用 Active-x-Control 按钮。所以，在button_click() 上刷新ExternalData 以及pivotTables

2. 所以，这里是代码：我删除了下面的代码

   ActiveWorkBook.RefreshAll

并更新为

Private Sub CommandButton1_Click()
Dim Data_query As Worksheet
Set Data_query = Sheets("Data")
Data_query.Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Application.ScreenUpdating = False
Sheets("sheet1").Select
Sheets("sheet1").PivotTables("PivotTable1").PivotCache.Refresh
Sheets("sheet1").PivotTables("PivotTable1").RefreshTable
End Sub

所以现在ExternalData 和pivotTables 会同时刷新。

Answer 2

可能当您打开工作簿时，您同时打开了其他工作簿？仅使用宏工作簿进行尝试。此外，使用数据透视表指定工作表也可以。 sheet1.refreshall

另一种方法是你用api设置一个定时器，并指定你想刷新的时间。

最后一种方法是在打开工作簿时设置刷新，转到此工作簿并在打开时输入代码。