(一) 打開工作簿時刷新
(二) 每幾分鐘刷新
菜單刷新
(三) 按需刷新价匠，刪除連接
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
