VBA批量拉取SQL数据问题：单单元格正常，D列多行取值失效求助

当你选中D5:D7这类多单元格区域时，Range.Value返回的是二维数组（哪怕是单列），直接把这个数组拼进SQL语句里，会生成类似EXEC dbo.XXX 'System.Array'的无效命令，自然跑不起来。

得把多单元格里的订单号转换成SQL能识别的格式——每个值用单引号包裹，再用逗号分隔成一串字符串，然后传给存储过程。

修改后的可用代码 #

Sub PullBOMForMultipleOrders()
    Dim orderNo As Variant
    Dim orderList As String
    Dim i As Integer
    
    ' 读取D5到D7的内容，得到二维数组
    orderNo = Sheet1.Range("D5:D7").Value
    
    ' 遍历数组，拼接成符合SQL要求的字符串
    For i = LBound(orderNo, 1) To UBound(orderNo, 1)
        ' 跳过空单元格，避免语法错误
        If orderNo(i, 1) <> "" Then
            If orderList <> "" Then orderList = orderList & ", "
            orderList = orderList & "'" & orderNo(i, 1) & "'"
        End If
    Next i
    
    ' 确认有有效订单号再执行
    If orderList <> "" Then
        With ActiveWorkbook.Connections("Select BOM").OLEDBConnection
            ' 用IN子句传递多个值（得确保你的存储过程dbo.XXX支持多值参数）
            .CommandText = "EXEC dbo.XXX (" & orderList & ")"
            ActiveWorkbook.Connections("Select BOM").Refresh
        End With
    Else
        MsgBox "没找到有效订单号，请检查单元格内容！"
    End If
End Sub

额外提示 #

1. 如果你的存储过程dbo.XXX原本只接受单个订单号，得先修改存储过程，让它能处理多值（比如用表值参数，或者在存储过程里拆分传入的字符串）。
2. 如果要处理D列所有非空单元格，把Range("D5:D7")改成Sheet1.Range("D5", Sheet1.Cells(Sheet1.Rows.Count, "D").End(xlUp))，这样会自动捕获D列从D5开始的所有非空行。
3. 代码里加了空值判断，防止因为空单元格导致SQL语法报错。

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