使用 Power Query 填充 VBA 列表框

Question

我有一个用户表单来控制我的库存记录。我使用 Power Query 从其他部门文件中获取信息，然后将其填充到我的表单中。我已经设置了查询。

要使用该信息，我只需要刷新所有连接并将其作为表格放入工作簿中。

当我在使用用户窗体时刷新所有连接时，ListBox 会填充旧数据。

在清除 ListBox 然后用数据填充它之前，我添加了 ThisWorkbook.RefreshAll 行来刷新连接。如果我第二次运行代码，ListBox 将填充新数据。

有没有办法在不运行代码两次的情况下用新数据填充列表框？

Answer 1

如果您的查询允许后台刷新，您的代码将使用旧数据，因为代码比查询更新快得多。

找到您的查询属性，如果“启用后台刷新”设置为 False（Microsoft 默认使用 True）。

然后在调用刷新全部后在代码中添加 DoEvent 命令。

相信这会为您解决问题。