如何通过Excel VBA批量更新SQL多笔记录？

下面是修改后的VBA代码，实现批量更新Excel工作表ShCustomers中A列所有有数据行对应的SQL记录，同时优化了连接效率和安全性：

Sub BatchUpdateTable()
    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim lastRow As Long
    Dim i As Long
    Dim cnnStr As String
    
    ' 设置数据库连接字符串
    cnnStr = "Provider=SQLOLEDB; Data Source=MAK-SYS;Initial Catalog=db_bckupserver_test_sys;User ID=sa;Password=Rehman@123;Trusted_Connection=No"
    
    ' 初始化连接和命令对象
    Set cnn = New ADODB.Connection
    Set cmd = New ADODB.Command
    
    On Error GoTo Cleanup ' 错误处理，确保连接能关闭
    
    ' 打开数据库连接（只打开一次，提升效率）
    cnn.Open cnnStr
    cmd.ActiveConnection = cnn
    cmd.CommandText = "UPDATE mak_items_chart SET [Group] = @Group WHERE itcode = @itcode"
    
    ' 定义参数（防止SQL注入，处理特殊字符）
    cmd.Parameters.Append cmd.CreateParameter("@Group", adVarChar, adParamInput, 255)
    cmd.Parameters.Append cmd.CreateParameter("@itcode", adInteger, adParamInput)
    
    ' 获取A列最后一行有数据的行号
    lastRow = ShCustomers.Cells(ShCustomers.Rows.Count, "A").End(xlUp).Row
    
    ' 循环遍历所有数据行（假设第1行是表头，从第2行开始）
    For i = 2 To lastRow
        ' 跳过空行
        If ShCustomers.Cells(i, "A").Value <> "" Then
            ' 给参数赋值
            cmd.Parameters("@itcode").Value = ShCustomers.Cells(i, "A").Value
            cmd.Parameters("@Group").Value = ShCustomers.Cells(i, "B").Value
            
            ' 执行更新
            cmd.Execute
        End If
    Next i
    
    MsgBox "批量更新完成！"

Cleanup:
    ' 关闭连接，释放对象
    If cnn.State = adStateOpen Then cnn.Close
    Set cmd = Nothing
    Set cnn = Nothing
    
    ' 如果有错误，提示信息
    If Err.Number <> 0 Then
        MsgBox "更新出错：" & Err.Description, vbCritical
    End If
End Sub

关键改动说明 #

• 循环逻辑：通过lastRow获取A列最后一行数据，用For循环遍历每一行，替代原有的仅处理活动单元格逻辑
• 连接复用：把数据库连接放在循环外，只打开/关闭一次，避免频繁建立连接的性能损耗
• 参数化查询：用ADODB.Command和参数替代字符串拼接，彻底避免SQL注入风险，同时自动处理字符串中的单引号等特殊字符
• 错误处理：添加On Error GoTo逻辑，确保即使更新过程中出错，数据库连接也能正常关闭
• 空行跳过：增加判断，跳过A列空行，避免无效更新

注意事项 #

1. 确认工作表ShCustomers存在，且数据结构是：A列=itcode，B列=Group
2. 如果你的数据表头不是第1行，调整循环起始行（把i=2改成对应行号）
3. 执行前建议备份SQL数据库和Excel数据，避免误操作
4. 确保SQL账号有mak_items_chart表的更新权限

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