如何在VBA的SQL查询语句中为字段结果添加引号？

我懂你的困扰——直接在SQL里加双引号会报错，又想让导出的每个值都带上"value"这样的格式对吧？这里有两种实用方案，帮你搞定这个问题：

方法一：在SQL查询中正确拼接引号 #

不同数据库的字符串拼接和引号转义规则略有不同，你可以根据自己的数据库类型调整查询语句：

• 如果是SQL Server/Access这类用+拼接字符串的数据库：

  select '"' + sitsmhlccd + '"' as sitsmhlccd from sitsmemoh
  

• 如果是Oracle这类用||拼接的数据库：

  select '"' || sitsmhlccd || '"' as sitsmhlccd from sitsmemoh
  

原理很简单：用单引号把双引号包裹起来（SQL里单引号用来定义字符串常量），再和目标字段拼接，这样查询返回的结果就自带双引号了。

方法二：在VBA中处理数据后写入工作表 #

如果SQL拼接还是有问题，那就换个思路——先读原始数据，再在VBA里给每个值手动加引号后写入表格，这种方式更灵活，还能处理空值等特殊情况。修改你的代码如下：

Sub CopyDataFromDB()
    Dim DKCon As ADODB.Connection
    Dim DKData As ADODB.Recordset
    Dim ws As Worksheet
    Dim rowNum As Long
    
    Set DKCon = New ADODB.Connection
    Set DKData = New ADODB.Recordset
    Set ws = Worksheets.Add ' 直接绑定工作表变量，避免依赖ActiveSheet
    
    DKCon.ConnectionString = SqlProvider
    DKCon.Open
    With DKData
        .ActiveConnection = DKCon
        .Source = "select sitsmhlccd from sitsmemoh"
        .LockType = adLockReadOnly
        .CursorType = adOpenForwardOnly
        .Open
    End With
    
    ' 写入表头（可选）
    ws.Range("A1").Value = "sitsmhlccd"
    
    ' 逐行读取数据并添加双引号
    rowNum = 2
    Do While Not DKData.EOF
        ' 处理空值，避免出现""的情况
        If Not IsNull(DKData("sitsmhlccd").Value) Then
            ws.Range("A" & rowNum).Value = """" & DKData("sitsmhlccd").Value & """"
        Else
            ws.Range("A" & rowNum).Value = ""
        End If
        rowNum = rowNum + 1
        DKData.MoveNext
    Loop
    
    ' 清理资源
    DKData.Close
    DKCon.Close
    Set DKData = Nothing
    Set DKCon = Nothing
    Set ws = Nothing
End Sub

这里的关键细节：

• VBA里要用""""来表示一个双引号（两个双引号转义成一个）
• 避免使用ActiveSheet，直接操作工作表变量更稳定
• 加了空值判断，防止空字段被转换成""

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