从工作表单元格提取长字符串用于SQL Server查询时出错

处理短SQL字符串时VBA代码运行正常，但执行长度接近2500字符的SQL时，在rs.Open环节弹出错误（错误截图如下）：

原代码中Debug.Print可完整输出长SQL字符串，但执行查询时失败。以下是针对性解决方法：

方法1：移除定长字符串限制 #

原代码中Dim mysql As String * 2500是定长字符串声明，即便Excel单元格可容纳32767字符，该定长变量仍会自动截断超过2500字符的内容（看似Debug输出完整，实际传递给SQLStr的内容已被截断）。

修改代码：

' 替换定长字符串为动态字符串
Dim mysql As String

方法2：更换为OLE DB驱动连接 #

原代码使用的Driver={SQL Server}是旧版ODBC驱动，对超长SQL语句支持有限。改用OLE DB驱动可提升兼容性：

修改连接字符串部分：

Cn.Open "Provider=SQLOLEDB;Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"

方法3：使用参数化查询（推荐，适用于带变量的SQL） #

若SQL包含动态条件（如大量IN子句），参数化查询不仅能规避字符串长度限制，还能防止SQL注入、提升代码安全性：

示例（假设SQL含IN子句参数）：

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = Cn
cmd.CommandText = "SELECT * FROM YourTable WHERE ID IN (@IDs)"
cmd.CommandType = adCmdText

' 传入超长参数内容，支持最大32767字符
cmd.Parameters.Append cmd.CreateParameter("@IDs", adVarChar, adParamInput, 32767, mysql)

Set rs = cmd.Execute

修改后的完整验证代码 #

Sub ADOExcelSQLServer()
    Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim mysql As String ' 改为动态字符串
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
     
    Server_Name = "my_server_name"
    Database_Name = "my_db_name"
    User_ID = ""
    Password = ""
    mysql = Worksheets("SQL").Range("A2").Value ' 用Value替代Text，避免格式转换问题
    Debug.Print mysql
    
    SQLStr = mysql
     
    Set Cn = New ADODB.Connection
    ' 使用OLE DB驱动
    Cn.Open "Provider=SQLOLEDB;Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"
     
    rs.Open SQLStr, Cn, adOpenStatic
     ' 导出数据到工作表（从A2开始避免覆盖表头）
    For iCols = 0 To rs.Fields.Count - 1
        Worksheets("DataDump").Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
    Next
    With Worksheets("DataDump").Range("A2:ZZ500000")
        .ClearContents
        .CopyFromRecordset rs
    End With
     ' 清理资源
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub

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