sql demand 按需刷新什么时候会刷新数据_通过Excel的VBA自动刷新，删除指定查询数据以及数据模型...-CSDN博客

本文链接：https://blog.csdn.net/weixin_39798626/article/details/111390752

本文详细介绍了如何使用VBA在Excel中实现数据的自动刷新，包括打开工作簿时刷新、定时刷新、按需刷新以及删除查询和连接。此外，还讲解了如何刷新PowerQuery创建的连接、数据模型以及整个工作簿。对于需要自动化数据更新的用户，这些技巧将大大提升工作效率。

摘要由CSDN通过智能技术生成

1、通过菜单及VBA刷新数据

(1) 打开工作簿时刷新

(2) 每几分钟刷新

(3) 按需刷新，删除连接

ThisWorkbook.Connections("查询-表名").RefreshThisWorkbook.Connections("查询-表名").Delete

请注意这个连接名称不单是单独的查询表名，具体的可以从菜单现有连接中查看。

删除连接主要作用是删除加载表和查询的连接关系，查询还是继续存在。

(4) 删除查询

ThisWorkbook.Queries("查询名称").Delete

查询名称Queries，代表的是我们平时所看的查询名称，例如下面这种，查询名称直接用表1进行替换即可。相当于删除此查询，请谨慎操作。

(5) 刷新所有Power Query创建的连接

//设置变量Dim n As Long, cn As WorkbookConnection //错误继续On Error Resume Next //循环每一个连接For Each cn In ThisWorkbook.Connections //主要是判断是否是PQ创建的连接N = InStr(1, cn.OLEDBConnection.Connection,_"Provider=Microsoft.Mashup.OleDb.1") //如果存在字符串则刷新连接If lTest > 0 Then cn.Refresh Next cn

为什么用字符串包含呢？我们可以看下查询属性里面的连接字符串样式。