如何在 Excel 中禁用调用 SQL 存储过程的自动刷新连接？

Question

每当我更改已打开工作簿的窗口并返回到我已定义外部连接的 MyFile.xlsb 时，MyFile.xlsb 中所有数据透视表的刷新都会自动运行。不用添加它是非常烦人的功能。如何禁用它？如何仅按需运行全部刷新。重要的提示。此问题仅发生在我分发 MyFile.xlsb 的用户的计算机上。在我的电脑上运行正常。

我已将外部连接定义为对 SQL 中存储过程的引用。

连接字符串：

Provider=SQLOLEDB.1;
Integrated Security=SSPI;
Persist Security Info=True;
Initial Catalog=MyDataBase;
Data Source=MyServerName;
Use Procedure for Prepare=1;
Auto Translate=True;
Packet Size=4096;
Workstation ID=MyWorkstationID;
Use Encryption for Data=False;
Tag with column collation when possible=False

这是我调用的 SQL 存储过程。

CREATE PROCEDURE [dbo].[MyProcedure]
AS
BEGIN

-- part one, show user what he has to see
SELECT *
FROM [dbo].[MyView] 
ORDER BY 1

-- part two, get user data
INSERT INTO dbo.My_other_table_logins_history
SELECT 
GETDATE(), 
ORIGINAL_LOGIN()
END

此处解释了使用此过程的概念： SQL procedure from Excel run from connection properties with user login as parameter

Answer 1

尝试运行这个：

Option Explicit

Public Sub disableAutoRefreshConnection()
    Dim cnn As WorkbookConnection

    For Each cnn In ActiveWorkbook.Connections
        With cnn.OLEDBConnection
            .BackgroundQuery = False
            If .Refreshing Then .CancelRefresh
            .EnableRefresh = False
            .RefreshOnFileOpen = False
            .RefreshPeriod = 0
        End With
    Next
End Sub

---

BackgroundQuery    Default: True;     If queries are asynchronous

CancelRefresh                         Cancels refresh operations in progress

EnableRefresh      Default: True;     If connection can be refreshed by the user

RefreshOnFileOpen  Default: False;    If it auto-updates each time workbook is opened

RefreshPeriod      Default: 0;        Number of minutes between refreshes