VBA通过ADODB读取Postgres导Excel遇255字符截断问题咨询

使用VBA通过ADODB Recordset实现PostgreSQL到Excel的数据导入时，长度超过255字符的字段会被截断，仅保留前255个字符。已排除Excel端单元格长度限制，截断发生在Recordset读取数据环节。

测试复现代码如下（业务代码因保密要求已做脱敏处理）：

Dim objConnection As Object
Dim objRecordset As Object
Dim sqlstring As String

ConStr= "Driver={PostgreSQL UNICODE};Server=IP address;Port=5432;Database=myDataBase;Uid=myUsername;Pwd=myPassword;"

sqlstring = "SELECT columnA, columnB, columnC from tableA"

Set objConnection = CreateObject("ADODB.connection")
Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.CursorLocation = 3 ' adUseClient客户端游标

objConnection.Open ConStr
objRecordset.Open sqlstring, objConnection

For i = 0 To 2
    If objRecordset.Fields(i).Value <> " " Or _
    objRecordset.Fields(i).Value <> Null Or _
    objRecordset.Fields(i).Value <> "" Then
                ActiveCell.Value = objRecordset.Fields(i).Value
                ActiveCell.Offset(0, 1).Activate
    End If
Next i

上述代码中columnB字段实际存储长度为1500字符，导入Excel后仅显示前255字符，经排查确认Recordset本身仅读取到前255个字符。

按落地优先级排序：

• 替换为官方最新版PostgreSQL ODBC驱动
  旧版PostgreSQL UNICODE驱动存在元数据识别缺陷，客户端游标模式下会默认将所有文本类字段的最大长度识别为255，直接触发读取截断。安装官方最新版psqlODBC驱动后，修改连接串中Driver字段为对应新版本驱动名即可，无需调整其他业务逻辑。
• 切换游标为服务端游标模式
  将现有代码中objRecordset.CursorLocation = 3修改为objRecordset.CursorLocation = 2（即adUseServer服务端游标）。服务端游标模式下驱动不会在本地预扫描字段元数据做长度截断，可正常读取长文本内容。注意该模式下Recordset仅支持向前滚动，若需要双向遍历记录集不适用该方案。
• 查询时显式转换长字段为text类型
  修改SQL语句，对长度超过255的字段做显式类型转换，强制驱动按长文本类型识别字段，示例：

  SELECT columnA, columnB::text, columnC FROM tableA
  

• 显式指定Recordset打开参数，避免预扫描截断
  调用Open方法时传入完整参数，使用键集游标+只读锁+文本命令模式，逐批次拉取数据，跳过客户端游标默认的前几行元数据扫描逻辑：

  ' 参数依次为：查询语句、连接对象、游标类型、锁类型、命令类型
  objRecordset.Open sqlstring, objConnection, 1, 1, 1
  

• 兜底方案：分段读取后拼接
  若受环境限制无法调整驱动或游标配置，可在SQL中用substring函数将长字段拆分为多个长度不超过255的分段，读取到VBA后手动拼接为完整内容，示例SQL：

  SELECT columnA,
         substring(columnB from 1 for 255) as b_part1,
         substring(columnB from 256 for 255) as b_part2,
         substring(columnB from 511 for 255) as b_part3,
         substring(columnB from 766 for 255) as b_part4,
         substring(columnB from 1021 for 500) as b_part5,
         columnC
  FROM tableA
  

• 不建议在客户端游标模式下直接调用Range.CopyFromRecordset方法批量导入，该方法会强制按扫描到的前几行元数据设置字段长度，长文本会被自动截断。
• 可在连接串末尾追加UseDeclareFetch=1;Fetch=100参数，强制驱动按小批次拉取数据，避免全量拉取时触发长度校验截断。

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