Excel 2016中Workbook_Activate()触发SQL Server更新失效问题

看起来你遇到的核心问题是Workbook_Activate/Open事件里的SQL更新代码在正常运行时不执行，但调试时正常，这大概率是因为数据刷新是异步操作，导致你读取G2单元格时数据还没加载完成，或者事件触发逻辑、SQL语句本身存在隐藏问题。下面是针对性的排查和修复方案：

一、核心问题点分析 #

1. 异步刷新导致数据未加载完成 #

ActiveWorkbook.RefreshAll默认是异步执行的——代码会直接往下跑，不会等待刷新完成。调试时你逐行执行，有足够时间让数据刷新完毕，所以能读到正确的partid；但正常运行时，partid = Worksheets("Sheet3").Range("G2").Value这行可能读到的还是旧数据（甚至是空值），导致SQL语句执行后没有匹配的行，看起来像是没执行。

2. SQL语句的类型不匹配问题 #

你的partid是Integer类型，但SQL语句里给ID加了单引号（WHERE ID = '" & partid & "'），如果SQL表中的ID是整数类型，这会导致类型不匹配，更新语句不会生效，而且因为没有错误捕获，你看不到任何报错提示。

3. 事件触发的不确定性 #

Workbook_Activate会在工作簿激活时触发，但如果打开工作簿时它直接处于激活状态，可能触发时机不对；Workbook_Open虽然更可靠，但同样会遇到异步刷新的问题。

二、修复后的完整代码 #

下面是加入了同步刷新强制等待、错误捕获、类型修正的代码，推荐放在Workbook_Open事件里：

Private Sub Workbook_Open()
    Dim cn As ADODB.Connection
    Dim strSql As String
    Dim strConn As String
    Dim partid As Integer
    
    ' 强制设置所有连接为同步刷新，确保数据加载完成后再继续
    For Each conn In ActiveWorkbook.Connections
        If conn.Type = xlConnectionTypeOLEDB Then
            conn.OLEDBConnection.BackgroundQuery = False
        End If
    Next conn
    ActiveWorkbook.RefreshAll
    DoEvents ' 确保刷新完成后再执行后续代码
    
    On Error GoTo ErrorHandler ' 加入错误捕获，方便排查问题
    
    ' 初始化数据库连接
    strConn = "Driver={SQL Server};Server=servername; Database=CI; UID=userID; PWD=UserPassword"
    Set cn = New ADODB.Connection
    cn.Open strConn
    
    ' 读取刷新后的ID值
    partid = Worksheets("Sheet3").Range("G2").Value
    
    ' 修正SQL语句：整数类型不需要单引号
    strSql = "UPDATE dbo.OHW_Schedule SET Grabbed = '1' WHERE ID = " & partid
    
    ' 执行更新并输出受影响行数，验证是否生效
    Dim affectedRows As Long
    cn.Execute strSql, affectedRows
    MsgBox "更新完成，受影响行数：" & affectedRows ' 测试用，正式环境可以删除
    
    ' 清理资源
    cn.Close
    Set cn = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBox "执行出错：" & Err.Description & vbCrLf & "错误代码：" & Err.Number
    If Not cn Is Nothing Then
        cn.Close
        Set cn = Nothing
    End If
End Sub

三、额外优化建议 #

• 避免硬编码连接字符串：可以把数据库连接信息存在工作表的隐藏单元格或者Excel的名称管理器里，方便后续修改维护。
• 使用参数化查询：直接拼接SQL语句有注入风险，也容易出现类型错误，建议改用ADODB.Command的参数化方式：

  Dim cmd As ADODB.Command
  Set cmd = New ADODB.Command
  cmd.ActiveConnection = cn
  cmd.CommandText = "UPDATE dbo.OHW_Schedule SET Grabbed = '1' WHERE ID = @PartID"
  cmd.Parameters.Append cmd.CreateParameter("@PartID", adInteger, adParamInput, , partid)
  cmd.Execute affectedRows
  

• 确认代码位置：确保代码是放在ThisWorkbook模块里，而不是普通的工作表模块或者标准模块，否则事件不会触发。

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