VBA:远程刷新另一个工作簿中的查询

时间:2016-11-10 10:35:39

标签: excel vba

我正在使用两本工作簿。我在一个插入数据,另一个是通过Excel查询获取此数据的一部分,因此我每次要刷新信息时都必须打开第二个,因为我正在与其他用户共享。

简而言之,我想在更新主要工作簿时远程刷新第二个工作簿,这样我就不必持续打开,刷新和关闭。

假设两个工作簿都在Dropbox的同一个文件夹中。例如。

非常感谢!

1 个答案:

答案 0 :(得分:0)

我找到了一种方法,但它在Mac OS中不起作用,因为不支持查询(我不知道这个)。

对于那些可能会有所帮助的人,请在代码下面:

Sub RefreshWB()
Application.ScreenUpdating = False
ActiveWorkbook.Save
Dim wb As Excel.Workbook
Set wb = Application.Workbooks.Open(ThisWorkbook.Path & Application.PathSeparator & "workbook.xlsx")
wb.Sheets("Sheet 1").Range("A1").ListObject.QueryTable.Refresh BackgroundQuery:=False
wb.Save
wb.Close
Application.ScreenUpdating = True
End Sub