Office 2013中Excel宏CommandText报Runtime Error 1004问题求解

我之前碰到过类似的Office版本兼容性问题，结合你的代码和报错场景，给你几个实用的排查和解决方向：

1. 适配Office 2013对CommandText的格式要求 #

Office 2013的ODBCConnection对象对CommandText的格式要求比2016更严格，直接赋值字符串可能会触发错误。你注释里尝试过数组写法，但可以调整一下实现方式：

• 确保SQL语句作为数组的唯一元素完整传入，同时先清空原有CommandText再赋值：

  With ActiveWorkbook.Connections("postgres y_original_customer_info").ODBCConnection
      .CommandText = Array("") ' 先清空原有内容
      .CommandText = Array("SELECT * FROM public.f_customers_with_pllm_and_gkh('" & x & "')")
      .Refresh
  End With
  

2. 用参数化查询替代字符串拼接（推荐） #

字符串拼接日期不仅容易触发格式兼容性问题，还存在SQL注入风险。Office 2013对参数化查询的支持更稳定，试试这种写法：

With ActiveWorkbook.Connections("postgres y_original_customer_info").ODBCConnection
    .CommandText = Array("SELECT * FROM public.f_customers_with_pllm_and_gkh(?);")
    ' 清空原有参数（如果存在）
    Do While .Parameters.Count > 0
        .Parameters.Delete .Parameters.Count
    Loop
    ' 添加日期参数
    .Parameters.Add "ReportDate", xlParamTypeDate
    .Parameters("ReportDate").Value = CDate(x)
    .Refresh
End With

3. 验证日期格式与系统区域设置的兼容性 #

Windows 8的区域日期设置可能和Win10不同，Office 2013对日期字符串的解析更严格。可以强制将日期转换为标准ISO格式：

' 确保x是标准的YYYY-MM-DD格式
x = Format(CDate(x), "yyyy-mm-dd")

4. 检查连接对象的有效性与驱动版本 #

• 先确认连接名称完全匹配：Office 2013对连接名称的大小写、空格更敏感，建议先做存在性校验：

  Dim targetConn As WorkbookConnection
  On Error Resume Next
  Set targetConn = ActiveWorkbook.Connections("postgres y_original_customer_info")
  On Error GoTo 0
  If targetConn Is Nothing Then
      MsgBox "未找到指定连接，请检查名称拼写！"
      Exit Sub
  End If
  

• 检查PostgreSQL ODBC驱动版本：Windows 8上的驱动可能较旧，建议安装适配Office 2013的最新兼容驱动。

5. 调试验证SQL语句的有效性 #

在赋值CommandText前，把生成的SQL语句弹窗输出，复制到PostgreSQL客户端直接执行，排除SQL本身的语法错误：

a = "SELECT * FROM public.f_customers_with_pllm_and_gkh('" & x & "')"
MsgBox "生成的SQL语句：" & vbNewLine & a ' 弹窗查看SQL

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