如何通过VBA刷新Excel数据模型中的单个Power Pivot表？

如果你的Excel工作簿打开时，只需要让用户查看数据模型里的个人数据子集，且全量刷新整个数据模型耗时过长，直接用单表刷新的VBA代码替换全量刷新代码即可：

• 原全量刷新代码：

  ActiveWorkbook.Model.Refresh
  

• 替换后的单表刷新代码：

  ActiveWorkbook.Model.ModelTables("data_tbl_Name").Refresh
  

注意：必须把代码中的data_tbl_Name替换成数据模型里对应的实际表名，要和模型内的表名完全匹配。

内容的提问来源于stack exchange，提问作者lionz