如何利用Excel中的菜单及VBA进行刷新查询及模型？
(一) 打开工作簿时刷新
(二) 每几分钟刷新
(三) 按需刷新，删除连接
ThisWorkbook.Connections("查询-表名").RefreshThisWorkbook.Connections("查询-表名").Delete请注意这个连接名称不单是单独的查询表名，具体的可以从菜单现有链接中查看。
删除连接主要作用是删除加载表和查询的连接关系，查询还是继续存在。
(四) 删除查询
ThisWorkbook.Queries("查询名称").Delete查询Queries，代表的是我们平时所看的查询名称，例如下面这种，查询名称直接用表1进行替换即可。相当于删除此查询，请谨慎操作。
(五) 刷新所有Power Query创建的连接
Dim n As Long, cn As WorkbookConnection //设置变量On Error Resume Next //错误继续For Each cn In ThisWorkbook.Connections //循环每一个连接 n = InStr(1, cn.OLEDBConnection.Connection,_ "Provider=Microsoft.Mashup.OleDb.1") //主要是判断是否是PQ创建的连接 If lTest > 0 Then cn.Refresh //如果存在字符串则刷新连接Next cn为什么用字符串包含呢？我们可以看下查询属性里面的连接字符串样式。
(六) 刷新数据模型
ThisWorkbook.Model.Refresh(七) 全部刷新
刷新所有，包括查询，Power Pivot透视表等
ThisWorkbook.RefreshAll当然我们可以继续延伸下思路，可以指定刷新部分查询，打开工作表的时候进行刷新等等都可以。
如果觉得有帮助，那麻烦您进行转发，让更多的人能够提高自身的工作效率。
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2019-08-13，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
目录
腾讯云开发者
