超级透视表 vba代码无法刷新

mavin

有一段刷新所有透视表的代码，能刷新普通透视表，不能刷新超级透视表（power piovt）。
用录制宏的方法，录制了代码，但是再次执行，也不能刷新。

附件里都做好了示例，请高手们测试一下，看看有没有解决的方法。

mavin

我的帖子怎么没人回复呀？是不是应该发到透视表板块好一点。

mavin

我用百度的文心一言4.0问了这个问题。她的回复是，VBA 本身并没有直接提供这样的功能。下面是文心一言回答的一部分。

注意：上面的代码只是一个示例框架，它并没有包含实际刷新 Power Pivot 数据模型的代码，因为 VBA 本身并没有直接提供这样的功能。你可能需要结合其他技术或工具来实现刷新 Power Pivot 数据模型的目的。
2. 使用 Power BI 或其他工具

如果你的工作簿是基于 Power Pivot 的，并且你经常需要刷新数据模型，那么考虑使用 Power BI Desktop 或其他相关工具可能是一个更好的选择。这些工具通常提供更强大和灵活的数据刷新选项。
3. 考虑使用其他方法触发刷新

如果上述方法都不可行，你还可以考虑使用其他方法来触发数据模型的刷新，比如通过创建一个包含刷新命令的宏，并使用 VBA 来调用这个宏；或者使用外部工具（如 PowerShell 脚本）来定期刷新数据模型。这些方法可能需要更多的技术和配置工作，但它们可以提供更大的灵活性和控制力。

taller

如果刷新工作簿中的全部透视表（含PP）：ActiveWorkbook.RefreshAll

如果只刷新PowerPivot：ActiveWorkbook.Model.Refresh

mavin

测试了，版主说得对，AI胡说八道，我还信以为真了。