vba - Excel VBA同步问题

Question

我正在使用excel做一些数据分析工作。场景是这样的:我使用一些 Excel 插件组件从远程站点获取数据。例如，将=get_the_latest_data(ID)放入A1中，则调用此函数，并将ID的数据填充到A2到A11。我的目标是

for each id in id_array
    sheet1.range("a1") = get_the_latest_data(id)
    create a new sheet named id
    save data from a2 to a11 to thi new sheet
next

我的问题是 get_the_latest_data 函数需要一些时间才能从远程获取所有数据。因此，在我的代码中，新工作表无法获得正确的结果。我尝试在将数据从sheet1复制到新工作表之前使用application.wait。但没有成功。

有什么方法可以确保从远程获取所需数据后将数据复制到新工作表中？顺便说一句，我无法访问get_the_latest_data的源代码。

Answer 1

通常，VBA 仅在前一步完全完成后才执行下一步。除非调用触发某些后台操作(例如，刷新启用了“后台刷新”的数据连接。

您可以执行以下操作来解决该问题:

禁用后台刷新:如果您查看连接的属性，请取消选择“启用后台刷新”

等待刷新完成并进行数据查询特定检查:按以下方式修改代码:

    Range("A11").Clear               'To enable the check    subCallToTriggerDataLoadHere    While Range("A11").Value  ""   'Or any other specific check to see that your refresh is finished        DoEvents    Wend    ...

使用查询的 AfterRefresh 事件: See this post for details