数据透视表无法更新excel vba

Question

我缺少什么？！

我已经设置了一个工作簿，其中包含指向外部csv文件的链接。然后有一些公式链接到数据透视表中的值。如果您已打开文档并手动刷新/等待数据透视表/公式中的值全部更新，但在编程上它们保持不变（包括轴和结果公式）？

Application.DisplayAlerts = False
   Dim wbk As Workbook
Dim pt As PivotTable
    Set wbk = Workbooks.Open(filepath, True)

For Each pt In wbk.PivotTables
    pt.RefreshTable
Next pt

 wbk.Worksheets.Application.Calculate

我使用了错误的刷新吗？我尝试在等待时间添加，但它没有做任何事情。计算设置为自动。我应该刷新数据透视数据源而不是表格本身吗？