Excel VBA从Active Directory拉取数据遇运行时错误及批量执行需求

嘿，我来帮你搞定这个问题！你遇到的运行时错误-2147016642 (8007203e)，本质是LDAP搜索过滤器格式无效，要么是过滤器语法写错了，要么是循环时传入了空的用户名；另外你原来获取最后一行的方法也有问题，UsedRange.Count返回的是已用区域的单元格总数，不是C列最后有值的行号，这会导致循环范围出错。

下面是修正后的完整代码，我把这两个核心问题都解决了，同时严格针对C列第9行到最后有值的单元格执行：

Sub PullADUserData()
    Dim lastRow As Long
    Dim i As Long
    Dim ws As Worksheet
    Dim adoConnection As Object
    Dim adoCommand As Object
    Dim adoRecordset As Object
    Dim strFilter As String
    Dim strUserName As String
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Worksheets("Send Letters")
    
    ' 精准获取C列最后一个有值的行号（从第9行开始判断）
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    ' 如果C列有值的行小于第9行，直接退出避免无效循环
    If lastRow < 9 Then
        MsgBox "C列第9行及以下无有效用户名！", vbExclamation
        Exit Sub
    End If
    
    ' 初始化AD查询所需的ADODB对象
    Set adoConnection = CreateObject("ADODB.Connection")
    Set adoCommand = CreateObject("ADODB.Command")
    
    ' 打开AD连接
    adoConnection.Open "Provider=ADsDSOObject;"
    Set adoCommand.ActiveConnection = adoConnection
    
    ' 循环处理每一行的用户名
    For i = 9 To lastRow
        strUserName = Trim(ws.Cells(i, "C").Value)
        
        ' 跳过空用户名，避免生成无效的搜索过滤器
        If strUserName <> "" Then
            ' 构建符合LDAP语法的搜索过滤器（标准格式）
            strFilter = "(&(objectCategory=person)(objectClass=user)(samAccountName=" & strUserName & "))"
            
            ' 设置AD查询指令：替换成你实际的域LDAP路径，比如DC=contoso,DC=com
            adoCommand.CommandText = "<LDAP://DC=yourdomain,DC=com>;" & strFilter & ";name,mail,department;subtree"
            
            ' 设置查询参数，提升稳定性
            adoCommand.Properties("Page Size") = 1000
            adoCommand.Properties("Timeout") = 30
            adoCommand.Properties("Cache Results") = False
            
            ' 执行查询并获取结果集
            Set adoRecordset = adoCommand.Execute
            
            ' 遍历结果集，写入数据到工作表（示例：邮箱写D列，部门写E列）
            Do Until adoRecordset.EOF
                ws.Cells(i, "D").Value = adoRecordset.Fields("mail").Value
                ws.Cells(i, "E").Value = adoRecordset.Fields("department").Value
                adoRecordset.MoveNext
            Loop
            
            ' 关闭并释放结果集对象
            adoRecordset.Close
            Set adoRecordset = Nothing
        End If
    Next i
    
    ' 清理所有ADODB对象，避免内存泄漏
    adoConnection.Close
    Set adoCommand = Nothing
    Set adoConnection = Nothing
    Set ws = Nothing
    
    MsgBox "AD数据拉取完成！", vbInformation
End Sub

核心修复与优化说明： #

• 正确定位最后一行：用ws.Cells(ws.Rows.Count, "C").End(xlUp).Row精准锁定C列最后有值的行，彻底解决原代码循环范围错误的问题。
• 修复LDAP过滤器：采用标准LDAP过滤器语法(&(objectCategory=person)(objectClass=user)(samAccountName=用户名))，同时添加空值判断，避免生成无效过滤器触发错误。
• 域路径替换提示：务必把代码中的<LDAP://DC=yourdomain,DC=com>替换成你实际的公司域LDAP路径，比如你的域是company.com，就写成LDAP://DC=company,DC=com。
• 异常防护：添加了空行判断和对象清理逻辑，提升代码的稳定性和健壮性。

如果还是遇到过滤器错误，可以先手动输出strFilter的值，检查用户名是否包含特殊字符（比如空格、引号），如果有，需要用Replace函数对特殊字符做转义处理（比如把"替换成\"）。

内容的提问来源于stack exchange，提问作者Christopher Leandro Kwok