如何將動態範圍字符串文本傳遞給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), "','") & "')"