Excel VBA注入两个单元格内容到SQL语句时遇运行时错误1004

问题根源 #

• Run-time error 1004：代码里Range ("Cell2")存在语法错误（Range与括号间多了空格），且未明确指定取单元格的Value属性；另外若命名区域是多单元格范围，也会触发该错误。
• 内容混乱：直接调用Range对象返回的是单元格显示值，若内容包含换行符或超长文本，会出现截断、重复的视觉错误，实际是显示限制问题而非拼接逻辑错误。

修正代码 #

With ActiveWorkbook.Connections("Qry").ODBCConnection
    ' 修复语法空格，明确取单个单元格的完整值
    .CommandText = Range("Cell1").Value & Range("Cell2").Value
End With

额外排查要点 #

• 确认Cell1、Cell2是单个单元格的命名区域，若为多单元格，需指定具体单元格，比如Range("Cell1").Cells(1,1).Value。
• 清理单元格内的控制字符（如换行、制表符）避免SQL语法报错：

  Dim sqlPart1 As String, sqlPart2 As String
  ' 移除换行符
  sqlPart1 = Replace(Range("Cell1").Value, vbLf, "")
  sqlPart1 = Replace(sqlPart1, vbCr, "")
  sqlPart2 = Replace(Range("Cell2").Value, vbLf, "")
  sqlPart2 = Replace(sqlPart2, vbCr, "")
  
  ActiveWorkbook.Connections("Qry").ODBCConnection.CommandText = sqlPart1 & sqlPart2
  

• 使用Debug.Print时，打开VBA编辑器的立即窗口（Ctrl+G）查看完整拼接内容，避免窗口显示限制导致的视觉混乱。

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