如何在Access转Excel的SQL查询中排除指定分支数据

要实现提取除commercial branch和corporate branch之外的普通分支，你需要调整Select Case的参数逻辑，并修改对应的SQL查询条件——因为我们需要排除包含这两个关键词的分支，而非匹配某个关键词。

步骤1：更新参数判断逻辑 #

首先，在你的Select Case中新增一个分支（对应单元格D6的值可以设为"REGULAR"或你自定义的普通分支标识），直接生成排除条件的字符串：

Dim brnchCondition As String

Select Case main.Range("D6").Value
    Case "ALL"
        brnchCondition = "1=1" ' 1=1 代表匹配所有数据，和原来的Like '%'效果一致但更简洁
    Case "CORPORATE"
        brnchCondition = "[Branches] Like '%CORPORATE%'"
    Case "COMMERCIAL"
        brnchCondition = "[Branches] Like '%COMMERCIAL%'"
    Case "REGULAR" ' 新增：匹配普通分支（排除商业和企业分支）
        brnchCondition = "[Branches] Not Like '%COMMERCIAL%' And [Branches] Not Like '%CORPORATE%'"
    ' 可选：处理未定义的选项
    Case Else
        brnchCondition = "[Branches] Not Like '%COMMERCIAL%' And [Branches] Not Like '%CORPORATE%'"
        ' 也可以加提示：MsgBox "无效的分支类型选择，请检查D6单元格的值"
End Select

步骤2：生成最终SQL查询 #

接下来，直接将条件拼接到SQL语句中（这种写法相比原来的参数拼接更直观，也更容易维护复杂条件）：

sql = "select * from [table] where " & brnchCondition

逻辑说明 #

• 当D6为"REGULAR"时，SQL条件会筛选出既不包含COMMERCIAL也不包含CORPORATE的分支数据，正好对应你需要的普通分支。
• 用1=1作为ALL的条件，是因为它始终为真，相当于不对数据做任何过滤，和原来的Like '%'效果完全一致。
• 如果需要支持其他普通分支标识（比如"ORDINARY"），只需要在Select Case中新增对应的Case分支即可。

可选优化：参数化查询（规避SQL注入风险） #

如果你的D6值可能来自用户自由输入（而非固定选项），建议使用参数化查询替代直接字符串拼接，提升代码安全性：

' 假设你已经建立了Access连接对象conn
Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "select * from [table] where [Branches] Not Like ? And [Branches] Not Like ?"
cmd.Parameters.Append cmd.CreateParameter("p1", 200, 1, 255, "%COMMERCIAL%")
cmd.Parameters.Append cmd.CreateParameter("p2", 200, 1, 255, "%CORPORATE%")
' 执行查询并将结果写入工作表
main.Range("A10").CopyFromRecordset cmd.Execute

当然，如果你的场景是固定选项（只有ALL/CORPORATE/COMMERCIAL/REGULAR），直接拼接条件是完全安全的。

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