如何将动态范围字符串文本传递给EXCEL中的SQL查询IN子句VBA

Question

我有动态范围字符串数据，需要传递修剪单元格以及单引号和逗号分隔到SQL查询。

A 
123ABC345 
234CDE678 
ZSE123MTR 
POR123456 

结果：

select * from table name where col1 in ('123ABC345','234CDE678','ZSE123MTR','POR123456') 

Answer 1

Dim query as String 

query = "select * from table name where col1 in (" 

range("A1").Select 

While ActiveCell.Value <> "" and ActiveCell.Offset(1, 0).Value <> "" 

query = query + "'" + Activecell.Value + "', " 

ActiveCell.Offset(1, 0).Select 

Wend 

query = query + "'" + Activecell.Value + "')" 

Answer 2

试试这个代码：

sqlstr = "select * from table name where col1 in ('" 
sqlstr = sqlstr & Join(Application.Transpose(Range("A1:A4").Value), "','") & "')"