嘿，我刚好有过类似的VBA连接SQL Server同步数据的经验，给你整理了一套完整的实现方案，完全贴合你的需求逻辑～

核心流程和你构思的伪代码完全一致：遍历Excel行→校验名称是否在SQL Server→存在则拉取对应数据写入Excel。下面是具体的落地步骤和代码：

1. 先配置VBA必要的引用 #

打开Excel的VBA编辑器（按Alt+F11），点击顶部菜单栏的工具→引用，勾选Microsoft ActiveX Data Objects 6.1 Library（选最新的版本就行），这样才能用ADO组件连接数据库。

2. 完整可运行的VBA代码 #

Sub SyncSQLDataToExcel()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim targetWs As Worksheet
    Dim lastDataRow As Long
    Dim rowIndex As Long
    Dim currentName As String
    Dim sqlStmt As String
    
    ' 替换成你的目标工作表名称
    Set targetWs = ThisWorkbook.Worksheets("原始数据")
    
    ' 获取数据区域的最后一行（假设名称在A列，按需修改列号）
    lastDataRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化数据库连接对象
    Set conn = New ADODB.Connection
    ' 连接字符串二选一，按需修改占位符
    ' 👉 Windows集成认证版（适合本地/域内服务器）
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=你的SQL服务器名;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
    ' 👉 SQL账号密码认证版（适合远程/独立账号）
    ' conn.ConnectionString = "Provider=SQLOLEDB;Data Source=你的SQL服务器名;Initial Catalog=你的数据库名;User ID=你的账号;Password=你的密码;"
    
    ' 错误捕获，避免程序崩溃
    On Error GoTo Cleanup
    conn.Open
    
    ' 遍历每一行数据（假设表头在第1行，从第2行开始处理）
    For rowIndex = 2 To lastDataRow
        currentName = targetWs.Cells(rowIndex, "A").Value
        
        ' 跳过空单元格，避免无效查询
        If currentName <> "" Then
            ' 构建安全的查询语句：转义单引号防止语法错误和注入
            sqlStmt = "SELECT * FROM 你的数据库表名 WHERE Name = '" & Replace(currentName, "'", "''") & "'"
            
            Set rs = New ADODB.Recordset
            rs.Open sqlStmt, conn
            
            ' 如果找到匹配数据，写入Excel（从B列开始，按需修改起始列）
            If Not rs.EOF Then
                targetWs.Cells(rowIndex, "B").CopyFromRecordset rs
            End If
            
            rs.Close
            Set rs = Nothing
        End If
    Next rowIndex
    
    MsgBox "数据同步完成啦！"
    
Cleanup:
    ' 收尾：释放资源，避免内存泄漏
    If Not rs Is Nothing Then rs.Close
    If conn.State = adStateOpen Then conn.Close
    Set rs = Nothing
    Set conn = Nothing
    Set targetWs = Nothing
    
    ' 如果出错，弹出错误提示
    If Err.Number <> 0 Then
        MsgBox "操作出错：" & Err.Description, vbCritical
    End If
End Sub

3. 关键细节提醒 #

• 连接字符串：一定要替换掉代码里的服务器名、数据库名、表名这些占位符，根据你的SQL Server认证方式选对应的连接字符串版本。
• 列号调整：如果你的名称不在A列，或者要写入的数据不是从B列开始，记得修改代码里的列标识（比如"A"改成"C"）。
• 数据格式兼容：如果Excel里的名称和数据库里的有空格差异，可以把查询语句改成LTRIM(RTRIM(Name)) = LTRIM(RTRIM('" & Replace(currentName, "'", "''") & "'))来忽略首尾空格。
• 权限问题：Windows认证要确保当前登录用户有SQL Server的访问权限；账号密码认证要确认账号有目标表的查询权限。

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