Excel 2016 Mac（V15.39）：VBA刷新数据连接时崩溃求助

嘿，针对你在Mac版Excel 15.39里遇到的宏刷新数据连接崩溃问题，我太懂这种Mac Excel VBA的坑了——毕竟Mac版的VBA引擎和Windows版差异不小，尤其是旧版本的兼容性问题。结合你说手动刷新正常、QueryTables替代方案没用的情况，给你几个针对性的解决思路：

1. 改用Workbook.Connections直接刷新，加异步等待与错误处理 #

手动刷新正常说明连接本身没问题，大概率是VBA代码的执行逻辑没适配Mac版的异步刷新机制。试试直接操作WorkbookConnection对象，同时加入等待和错误捕获，避免Excel因资源占用过高崩溃：

Sub RefreshTargetConnection()
    On Error GoTo RefreshError
    Dim targetConn As WorkbookConnection
    ' 替换成你要刷新的连接名称，可从「Workbook Connections」窗口查看
    Set targetConn = ThisWorkbook.Connections("Your_Connection_Name")
    
    ' 关闭屏幕更新，减少Mac版Excel的资源负载
    Application.ScreenUpdating = False
    
    ' 先取消正在进行的刷新（如果有的话）
    If targetConn.OLEDBConnection.Refreshing Then
        targetConn.OLEDBConnection.CancelRefresh
    End If
    
    ' 触发刷新，加入DoEvents让系统处理后台事件
    targetConn.OLEDBConnection.Refresh
    DoEvents
    
    ' 等待刷新完成（Mac版Excel刷新多为异步，必须显式等待）
    Do While targetConn.OLEDBConnection.Refreshing
        DoEvents
        ' 每1秒检查一次，避免循环占用过多CPU
        Application.Wait Now + TimeValue("00:00:01")
    Loop
    
    MsgBox "数据刷新完成！", vbInformation
ExitSub:
    Application.ScreenUpdating = True
    Exit Sub
    
RefreshError:
    MsgBox "刷新失败：" & Err.Description, vbCritical
    Resume ExitSub
End Sub

2. 替换ActiveX按钮为表单控件（Form Controls） #

Mac版Excel对ActiveX控件的支持一直存在兼容性问题，尤其是旧版本。如果你用的是ActiveX按钮绑定宏，建议换成表单控件按钮：

• 右键点击现有按钮，删除它
• 从「开发工具」→「控件」→「表单控件」里选按钮，绘制到工作表上
• 绑定你写好的刷新宏，再测试运行

3. 重置Excel偏好设置（解决更新后配置损坏问题） #

某次更新后出现的崩溃，很可能是Excel的偏好文件损坏导致的。试试重置偏好：

• 完全退出Excel（包括后台进程）
• 打开Finder，按Command+Shift+G，输入~/Library/Preferences
• 删除名为com.microsoft.Excel.plist的文件
• 重启Excel，重新配置你的宏和数据连接

4. 避免批量刷新，分步骤逐个刷新 #

如果你的宏是批量刷新多个连接，Mac版Excel可能因同时处理多个刷新请求导致崩溃。改成逐个刷新，每个刷新后都加入DoEvents和等待：

Sub RefreshAllConnectionsOneByOne()
    On Error GoTo BatchError
    Dim conn As WorkbookConnection
    Application.ScreenUpdating = False
    
    For Each conn In ThisWorkbook.Connections
        If conn.Type = xlConnectionTypeOLEDB Then ' 只刷新OLEDB类型的连接
            If conn.OLEDBConnection.Refreshing Then
                conn.OLEDBConnection.CancelRefresh
            End If
            conn.OLEDBConnection.Refresh
            DoEvents
            Do While conn.OLEDBConnection.Refreshing
                DoEvents
                Application.Wait Now + TimeValue("00:00:01")
            Loop
        End If
    Next conn
    
    MsgBox "所有连接刷新完成！", vbInformation
ExitBatch:
    Application.ScreenUpdating = True
    Exit Sub
    
BatchError:
    MsgBox "批量刷新失败：" & Err.Description, vbCritical
    Resume ExitBatch
End Sub

内容的提问来源于stack exchange，提问作者Audrey Marie Meyer