在宏中插入Excel单元格值作为SQL查询参数

我想将Excel单元格的值传递到宏中的查询中，这样当我在特定单元格中插入值并按Enter键时，它会触发宏和宏中的查询

假设单元格为“A1”，我将作为参数传递的值（这次）为“99”

如果我“手动”执行此操作，查询将以以下方式插入参数：

Set rs = conn.Execute("SELECT * FROM CODES WHERE ref_id like '99%' ")

---

为了使查询接受A1单元格中的任何值，需要进行哪些修改？

我在基于Excel的SQL下载中使用的是，我将脚本放在A:A中，然后使用以下VBA代码：

Range("A1").Select
'Set Do loop to stop when an empty cell is reached.
Do Until IsEmpty(ActiveCell)
    ' Concatenate using a space after each line
        sql = sql + ActiveCell.Value + " "

    ' Step down 1 row from present location.
    ActiveCell.Offset(1, 0).Select
Loop

因此，它将逐行阅读所有内容

就你而言，我认为应该是这样：

Range("A1").Select
        sql = "SELECT * FROM CODES WHERE ref_id like '" + ActiveCell.Value + "%' "
Set rs = conn.Execute(sql)