当我尝试使用“刷新全部”刷新一组数据透视表时，我收到以下消息；
Unable to refresh data types
我读到过，这与您是否有互联网连接有关，互联网连接已关闭，当我打开它时，它就可以正常工作。但是，作为替代方案，我也有此代码来刷新数据透视表；
For Each SheetPivotTables In Sheets("Analysis").PivotTables SheetPivotTables.RefreshTable Next SheetPivotTables
无论互联网是否可用，它都可以工作，我还注意到，如果您一次刷新一个表，那就没问题了。有没有办法解决错误消息，我正在使用 Excel 365。
答案1
尝试将文件保存到 Excel 选项>信任中心>信任中心设置>受信任位置 在任意位置添加一个位置。不要使用此处的位置。我将启用宏的文件存储到 Excel 的受信任位置之一并打开它，它会打开您的所有 Excel 文件。因此，请创建您自己的受信任位置。
答案2
右键单击表格选项卡 > 查看代码。单击（常规）> 工作表 在右侧下拉菜单中单击更改。输入以下内容：
Private Sub Worksheet_Change（ByVal 目标作为范围）
Dim pc 在 ThisWorkbook.PivotCaches 中
下一个
子目录结束
对所有包含数据透视表的表执行此操作。