如何通过VBA禁用Excel股票链接数据类型的自动刷新？

核心解决方案 #

可以通过VBA直接修改股票链接数据类型的刷新频率为手动。关键在于，使用ConvertToLinkedDataType转换单元格后，Excel会自动将该区域转换为ListObject（结构化表格），我们只需操作这个表格的刷新属性即可实现需求。

完整VBA代码示例 #

Sub SetStockLinkedDataTypeToManualRefresh()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim lastRow As Long
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Sheets("Quotes")
    ' 获取B列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 将指定区域转换为股票链接数据类型
    ws.Range("B1:B" & lastRow).ConvertToLinkedDataType _
        ServiceID:=268435456, LanguageCulture:="en-AU"
    
    ' 获取转换后自动生成的结构化表格
    Set tbl = ws.ListObjects(1) ' 若工作表有多个表格，建议改用表格名称定位，如ws.ListObjects("Table1")
    
    ' 设置刷新间隔为0，即切换为手动刷新模式
    tbl.QueryTable.RefreshInterval = 0
    
    ' 可选：禁用后台刷新，确保刷新完全由手动触发
    tbl.QueryTable.BackgroundQuery = False
End Sub

关键说明 #

• ListObject与QueryTable的关联：股票链接数据类型本质通过QueryTable对接外部数据源，将RefreshInterval设为0即可把自动刷新改为手动。
• 表格定位方式：如果工作表存在多个结构化表格，建议通过表格名称（而非索引）定位，避免因表格顺序变化导致出错。可通过tbl.Name查看转换后表格的自动命名。
• 设置验证：代码运行后，可通过「数据类型刷新窗格」确认股票数据的刷新频率已变为「手动」。

内容的提问来源于stack exchange，提问作者Nick