Office365 64位Excel VBA创建数据透视表时ODBC驱动报错求助

我来帮你解决这个64位Office下的ODBC驱动报错问题，这个错误本质是32位和64位环境的驱动兼容性冲突，再加上你的连接字符串有小问题，咱们一步步来搞定：

首先明确错误根源：
你之前在32位Office里用的Microsoft Text Driver (*.txt; *.csv)是32位专属的ODBC驱动，而64位的Office 365只能加载64位驱动，所以找不到对应驱动就触发了报错。另外你的连接字符串里DBQ和DefaultDir是空的，驱动无法定位CSV文件，这也是报错的诱因之一。

64位的文本驱动包含在Microsoft Access Database Engine中，你需要安装对应版本的64位引擎：

• 如果系统已安装32位Office，直接安装会弹出兼容性冲突提示，此时要用静默安装方式：
  1. 下载64位的AccessDatabaseEngine_X64.exe（对应Office 2016或更高版本的 redistributable包）
  2. 右键以管理员身份打开命令提示符，运行命令：AccessDatabaseEngine_X64.exe /quiet
     这个参数会跳过兼容性检查，强制完成64位引擎的安装。

安装好驱动后，需要调整连接字符串，适配64位驱动并正确指定文件路径：

' 先提取CSV文件所在的文件夹路径（假设csvname是带完整路径的文件名）
Dim csvFolderPath As String
csvFolderPath = Left(csvname, InStrRev(csvname, "\"))

With ActiveWorkbook.PivotCaches.Add(xlExternal)
 ' 64位驱动名称与32位有区别，用逗号分隔扩展名，同时指定DBQ为文件夹路径
 .Connection = "ODBC;DBQ=" & csvFolderPath & ";Driver={Microsoft Access Text Driver (*.txt, *.csv)};Extensions=asc,csv,tab,txt;"
 .CommandType = xlCmdSql
 ' CommandText只需要CSV的文件名，不需要路径（DBQ已指定文件夹）
 .CommandText = "SELECT * FROM " & Mid(csvname, InStrRev(csvname, "\") + 1)
 .CreatePivotTable Range("A3"), PivotName
End With

注意事项：

• 64位驱动名称为Microsoft Access Text Driver (*.txt, *.csv)，和32位的分号分隔不同，这里用逗号
• DBQ必须设置为CSV文件所在的文件夹，而非文件本身
• 如果csvname变量仅为文件名（不带路径），需先获取其所在文件夹，比如用ThisWorkbook.Path获取当前工作簿路径

你可以通过64位ODBC管理器确认驱动状态：

• 打开C:\windows\system32\odbcad32.exe（这是64位ODBC管理工具，SysWOW64下的是32位版本）
• 切换到「驱动程序」标签，查看是否存在Microsoft Access Text Driver (*.txt, *.csv)，存在则说明安装成功。

ODBC文本驱动在64位环境下兼容性较差，改用ACE OLEDB连接会更可靠，代码示例如下：

Dim csvFolderPath As String
csvFolderPath = Left(csvname, InStrRev(csvname, "\"))

With ActiveWorkbook.PivotCaches.Add(xlExternal)
 .Connection = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & csvFolderPath & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
 .CommandType = xlCmdSql
 .CommandText = "SELECT * FROM [" & Mid(csvname, InStrRev(csvname, "\") + 1) & "]"
 .CreatePivotTable Range("A3"), PivotName
End With

这个方案同样需要安装64位的Microsoft Access Database Engine，但OLEDB的适配性比ODBC更好，后续不易再出现类似驱动问题。

最后测试修改后的代码，确保csvname变量是正确的完整路径文件名，应该就能正常创建数据透视表了。

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