sql-server-2008 - 首次运行时自动刷新 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 刷新为以及数据透视表

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 同时刷新。