如何通过IP将带VBScript宏的Excel连接至SQL Server远程数据库？

以下是针对你遇到的身份识别失败问题的具体排查和解决步骤：

• 确认ODBC驱动兼容性与安装情况
  你使用的ODBC Driver 17 for SQL Server需要在运行Excel的客户端机器上正确安装。如果服务器端SQL Server版本偏旧（如2012及更早），建议尝试降级驱动至ODBC Driver 11 for SQL Server，避免版本不兼容导致的隐性验证失败。同时要确保驱动位数（32/64位）与Excel的位数完全匹配。

• 修正连接字符串细节
  检查连接字符串的语法是否存在疏漏：

  • 若服务器使用非默认端口，必须在IP后追加,端口号，例如Server=10.20.30.5,1433;（1433为默认端口，若已修改请替换）
  • 确保UID和PWD的拼写严格符合ODBC规范，不要混用User ID或Password（部分驱动兼容但可能引发异常）
  • 若密码包含特殊字符（如!@#$&），需要用双引号包裹密码，或是对整个连接字符串加双引号，示例：

    strConn = "Driver={ODBC Driver 17 for SQL Server};Server=10.20.30.5;Database=mydb;UID=sa;PWD=""abcd12345!"";"
    

• 排查运行环境权限限制

  • 尝试以管理员身份启动Excel，部分系统下普通权限会限制ODBC驱动的身份验证流程
  • 检查本地安全策略，确认没有限制本地账户使用ODBC进行远程身份验证的相关设置

• 简化代码定位问题
  先剥离Recordset查询逻辑，仅测试数据库连接是否成功，排除后续操作的干扰：

  Sub TestConnectionOnly()
      Set conn = CreateObject("ADODB.Connection")
      strConn = "Driver={ODBC Driver 17 for SQL Server};Server=10.20.30.5;Database=mydb;UID=sa;PWD=abcd12345;"
      On Error Resume Next
      conn.Open strConn
      If Err.Number <> 0 Then
          MsgBox "连接错误详情：" & Err.Description
      Else
          MsgBox "连接成功！"
          conn.Close
      End If
      Set conn = Nothing
  End Sub
  

  运行这段代码，能直接确认是连接阶段的问题，还是查询阶段的权限问题。

• 查看SQL Server审计日志
  登录SQL Server管理工具，前往安全性 -> 日志 -> 错误日志，里面会记录每一次身份验证失败的具体原因（比如账号锁定、默认数据库不存在、登录权限不足等），这是最精准的排查依据。

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