Excel宏运行时错误1004（ODBC通用错误）排查求助

首先，针对你遇到的「部分用户正常运行、部分触发ODBC错误」的情况，结合你的代码和共享目录场景，问题大概率出在驱动兼容性、系统环境差异或连接配置细节上，以下是具体分析和可落地的修复方案：

1. Office位数与ODBC驱动不匹配（最常见诱因） #

你的代码使用了{Microsoft Text Driver (*.txt; *.csv)}，这个驱动分32位和64位两个版本。如果用户的Office版本（32/64位）和系统中安装的Text驱动版本不匹配，就会直接触发ODBC连接失败。

修复方案： #

• 先查Office位数：让报错用户打开Excel，点击「文件」→「账户」→「关于Excel」，确认是32位还是64位版本。
• 替换为ACE驱动：Microsoft Text Driver在新Windows/Office版本中逐渐被ACE驱动替代，兼容性更强。修改你的连接字符串为：

  strConnection = "ODBC;Driver={Microsoft ACE OLEDB 12.0};" & _
                  "DBQ=\\My Folder\\;" & _
                  "Extended Properties=""Text;HDR=Yes;FMT=Delimited;Delimiter=,"""
  

  注意：如果用户是64位Office，需要安装对应版本的Access Database Engine，安装时右键以管理员身份运行，避免兼容性冲突。

2. UNC路径解析异常 #

你的连接字符串用了\\My Folder\\，这可能是一个网络共享的别名而非完整UNC路径（比如\\ServerName\SharedFolder）。部分用户的系统可能无法解析这个别名，导致找不到目标CSV文件。

修复方案： #

• 使用完整UNC路径：将DBQ=\\My Folder\\;替换为DBQ=\\你的服务器名\共享文件夹名\;，确保所有用户都能直接定位到共享目录。
• 尝试映射驱动器：让报错用户把共享目录映射为本地驱动器（比如Z:），然后修改连接字符串为DBQ=Z:\;，测试是否能正常连接。

3. CSV格式与系统区域设置冲突 #

如果报错用户的系统区域设置中，列表分隔符不是逗号（比如部分欧洲国家用分号），Microsoft Text Driver会错误解析CSV文件，进而触发ODBC错误。

修复方案： #

在连接字符串的Extended Properties中明确指定分隔符（假设你的CSV用逗号分隔）：

strConnection = "ODBC;Driver={Microsoft ACE OLEDB 12.0};" & _
                "DBQ=\\My Folder\\;" & _
                "Extended Properties=""Text;HDR=Yes;FMT=Delimited;Delimiter=,"""

4. 命名范围删除操作的潜在影响 #

你的Delete_Named_Ranges子程序会删除工作簿中所有命名范围，包括Excel的内置系统命名范围（比如Print_Area、Sheet_Title等）。虽然这不是直接导致ODBC错误的原因，但可能破坏Excel内部状态，间接引发后续操作异常。

修复方案： #

修改子程序，只删除你自定义的命名范围（比如仅删除PolData）：

Sub Delete_Named_Ranges()
    Dim wbBook As Workbook
    Dim nName As Name
    Set wbBook = ActiveWorkbook
    For Each nName In wbBook.Names
        ' 仅删除自定义的PolData命名范围
        If nName.Name = "PolData" Then
            nName.Delete
        End If
    Next nName
End Sub

5. 工作表引用的一致性问题 #

代码中使用了Sheet2、Sheet5这类工作表代码名，如果报错用户的工作簿中，工作表的代码名被修改过（比如用户手动更改了代码名），会导致引用失败，间接引发ODBC操作异常。

修复方案： #

改用工作表的显示名称引用，确保跨环境一致性：

' 替换Set rngDestination = Sheet2.Range("A1")为：
Set rngDestination = Worksheets("Pol Data").Range("A1")

' 替换Sheet5.ComboBox1.Text为：
Worksheets("你的ComboBox所在工作表显示名称").ComboBox1.Text

最后验证步骤 #

让报错用户按以下顺序测试：

1. 确认能直接打开共享目录中的My_File.csv，确保文件未被锁定。
2. 安装对应Office位数的ACE驱动（如果采用了ACE驱动方案）。
3. 替换连接字符串为完整UNC路径+ACE驱动版本。

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