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

excel vba sql查询中单引号的处理,sql,vba,excel,Sql,Vba,Excel,我正在使用excel sql查询根据我在下拉框中所做的选择从后端获取数据。但是,如果下拉框值中有一个单引号('),则我的sql查询不起作用。比如,男装。请给我建议一个处理这个问题的方法 SQL = "select Segment,Weeks,Value from [Category performance data$] where Departments='" & Sheet3.Range("Dept_name").Value & _ "

我正在使用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   
Departments='" & replace(Sheet3.Range("Dept_name").Value, "'", "''") & _ "' and Metric