处理excel vba sql查询中的单引号

Question

我正在使用excel sql查询根据我在下拉框中的选择从后端获取数据。但是，如果在下拉框值中存在单引号（'），则我的sql查询不起作用。例如 - 男装。请建议我解决这个问题的方法

    SQL = "select Segment,Weeks,Value from [Category performance data$] where       Departments='" &       Sheet3.Range("Dept_name").Value & _
     "' and Metric ='Total Spend' group by Segment,Weeks,Value"
    Call execQry   

Answer 1

Departments='" & replace(Sheet3.Range("Dept_name").Value, "'", "''") & _ "' and Metric