我试图通过参数传递一系列单元格,但每当我这样做时,无论是创建列表框还是连接所有值,我的输出都是空的。
这是我的SQL查询: 选择不同 k.USN ,k.is_commodity ,k.Import_SKU 来自ods..SKU k 其中k.usn在(?)
我的参数在Sheet1中,单元格A9:A69
答案 0 :(得分:1)
尝试:
Sub SQL()
Dim strSQL
strSQL = "select distinct k.USN ,k.is_commodity ,k.Import_SKU" & _
"from k" & _
"where k.usn in ('" & Join(Application.Transpose(Range("A9:A69").Value), "','") & "')"
End Sub