如何通过VBA保留SQL数据库到ADODB记录集再到Excel的é字符？

以下是针对该问题的规范解决方法，无需硬编码替换字符：

1. 修正ADODB连接字符串的字符编码配置 #

确保连接SQL Server时强制使用Unicode传输，避免ANSI编码转码丢失特殊字符。在连接字符串中添加UseUnicode=True和CharacterSet=UTF-8参数：

Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=你的服务器地址;Initial Catalog=目标数据库;User ID=用户名;Password=密码;UseUnicode=True;CharacterSet=UTF-8"
conn.Open

如果数据库使用的是西欧字符集（如SQL_Latin1_General_CP1_CI_AS），也可将CharacterSet设置为ISO-8859-1，确保与数据库 collation 匹配。

2. 配置ADODB记录集的游标模式 #

使用客户端游标缓存数据，提升Unicode字符的处理准确性：

Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient ' 启用客户端游标
rs.Open "你的SQL查询语句", conn, adOpenStatic, adLockReadOnly, adCmdText

3. 确保Excel目标区域的字体支持特殊字符 #

生成的新文档可能默认使用不支持扩展拉丁字符的字体（如宋体），需提前设置目标单元格的字体为支持的类型（如Calibri、Arial）：

Dim targetTable As ListObject
Set targetTable = NewWorkbook.Worksheets("Sheet1").ListObjects("目标表名")
' 先设置字体再写入数据
targetTable.DataBodyRange.Font.Name = "Calibri"
targetTable.DataBodyRange.CopyFromRecordset rs

4. 验证数据库字段的存储类型与collation #

• 确认存储特殊字符的字段为Unicode类型（nvarchar/ntext），而非ANSI类型（varchar/text），ANSI类型会在存储阶段丢失非ASCII字符；
• 检查数据库/字段的collation是否支持西欧字符（如Latin1_General_CI_AS），确保字符存储时无转码丢失。

5. 显式指定SQL查询返回Unicode数据 #

若上述配置仍无效，可在SQL查询中显式将字段转换为Unicode类型，确保ADODB读取到正确的字符编码：

SELECT CONVERT(NVARCHAR(MAX), 目标字段名) AS 目标字段名 FROM 目标表

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