(一) 打開工作簿時刷新

(二) 每幾分鐘刷新

菜單刷新

(三) 按需刷新，刪除連接

ThisWorkbook.Connections("查詢-表名").Refresh
ThisWorkbook.Connections("查詢-表名").Delete

請注意這個連接名稱不單是單獨的查詢表名，具體的可以從菜單現(xiàn)有鏈接中查看。

工作簿連接

刪除連接主要作用是刪除加載表和查詢的連接關(guān)系，查詢還是繼續(xù)存在。

刪除連接

(四) 刪除查詢

ThisWorkbook.Queries("查詢名稱").Delete

查詢Queries，代表的是我們平時所看的查詢名稱，例如下面這種，查詢名稱直接用表1進(jìn)行替換即可。相當(dāng)于刪除此查詢，請謹(jǐn)慎操作。

查詢名稱

(五) 刷新所有Power Query創(chuàng)建的連接

Dim lTest As Long, cn As WorkbookConnection //設(shè)置變量
On Error Resume Next  //錯誤繼續(xù)
For Each cn In ThisWorkbook.Connections  //循環(huán)每一個連接
    lTest = InStr(1, cn.OLEDBConnection.Connection,_
            "Provider=Microsoft.Mashup.OleDb.1") //主要是判斷是否是PQ創(chuàng)建的連接
    If lTest > 0 Then cn.Refresh  //如果存在字符串則刷新連接
Next cn

為什么用字符串包含呢？我們可以看下查詢屬性里面的連接字符串樣式。

查詢屬性

(六) 刷新數(shù)據(jù)模型

ThisWorkbook.Model.Refresh

(七) 全部刷新

刷新所有，包括查詢，Power Pivot透視表等

ThisWorkbook.RefreshAll