如何在Excel VBA中将SQL查询结果直接转为逗号分隔字符串？

当然可以直接转换，完全不需要借助工作表中转。核心思路是从ADO记录集里直接读取ID数据，通过数组或字符串拼接工具直接生成逗号分隔字符串，效率远高于写入工作表再处理的方式，尤其适合5万条数据的场景。

方法一：利用数组+Join函数（推荐，效率高） #

通过GetRows一次性把所有ID读取到数组，转置后用Join快速拼接：

Sub ConvertSQLIDsToCommaString()
    Dim conn As Object, rs As Object
    Dim idArray() As Variant
    Dim resultStr As String
    Dim sqlQuery As String
    
    ' 初始化数据库连接（根据你的数据库类型调整连接字符串）
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=你的服务器;Initial Catalog=你的数据库;User ID=账号;Password=密码;"
    
    ' 编写你的SQL查询语句
    sqlQuery = "SELECT ID FROM 目标表 WHERE 筛选条件"
    
    ' 执行查询获取记录集
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sqlQuery, conn
    
    ' 处理记录集数据
    If Not rs.EOF Then
        ' GetRows返回列优先二维数组，转置为一维数组后才能用Join
        idArray = Application.Transpose(rs.GetRows)
        resultStr = Join(idArray, ",")
    Else
        resultStr = "" ' 无匹配数据时返回空字符串
    End If
    
    ' 释放资源
    rs.Close: conn.Close
    Set rs = Nothing: Set conn = Nothing
    
    ' 此处可根据需求使用resultStr变量，比如打印或传入其他逻辑
    Debug.Print resultStr
End Sub

方法二：用StringBuilder拼接（超大数据量适配） #

如果担心Application.Transpose的数组大小限制，可使用System.Text.StringBuilder来高效拼接字符串：

Sub ConvertIDsWithStringBuilder()
    Dim conn As Object, rs As Object
    Dim sb As Object
    Dim resultStr As String
    Dim sqlQuery As String
    
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "你的数据库连接字符串"
    
    sqlQuery = "SELECT ID FROM 目标表 WHERE 筛选条件"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sqlQuery, conn
    
    ' 初始化StringBuilder
    Set sb = CreateObject("System.Text.StringBuilder")
    
    ' 逐行读取拼接
    Do While Not rs.EOF
        If sb.Length > 0 Then sb.Append ","
        sb.Append rs("ID").Value
        rs.MoveNext
    Loop
    
    resultStr = sb.ToString()
    
    ' 释放资源
    rs.Close: conn.Close
    Set rs = Nothing: Set conn = Nothing: Set sb = Nothing
    
    Debug.Print resultStr
End Sub

关键优势 #

• 彻底绕开工表IO操作，避免了写入/读取单元格的性能损耗
• 5万条数据的处理速度比工作表中转快数倍
• 不会在工作表中留下临时数据，避免干扰现有表格内容

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