VBA拉取Vertica大表数据时触发General ODBC Error问题求助

1. 调整Vertica ODBC驱动配置 #

• 打开Windows ODBC数据源管理器，找到你配置的Vertica DSN，点击「配置」进入高级设置
• 调高 ResultBufferSize 参数，默认值可能过小无法承载15万行的返回结果，建议直接设为0（表示不限制缓冲区大小）
• 调高 QueryTimeout 参数，或者直接设为0（取消查询超时限制），避免查询还没返回就被强制中断

2. 优化VBA代码配置 #

原代码里有几处可以调整的参数，修改后再测试：

Application.CutCopyMode = False
' 先关闭屏幕更新提升性能，避免刷新时界面卡顿导致异常
Application.ScreenUpdating = False
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=Vertica;" _
, Destination:=Cells(ActiveCell.Row, 1)).QueryTable
    .CommandText = "Select SalesID, Revenue from Table" ' 不需要用Array包裹，直接传字符串减少解析出错概率
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = False ' 直接改成False，不要后台查询，避免异步查询冲突
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False ' 拉取完数据再调整列宽，减少刷新时的性能开销
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
End With
ActiveSheet.ListObjects(1).Name = "tablename"
' 拉取完成后再恢复屏幕更新和调整列宽
ActiveSheet.ListObjects("tablename").Range.EntireColumn.AutoFit
Application.ScreenUpdating = True

• 注意不要在QueryTable还没完成刷新的时候就重命名ListObject，原代码里重命名的位置会干扰刷新流程，要移到Refresh执行完成之后

3. 分批次拉取数据合并 #

如果上面的方法还是报错，可以用分页查询的方式分批次拉取再合并，避免单次返回数据量过大：

• Vertica支持LIMIT OFFSET语法，每次拉取1万行，循环15次把结果追加到Excel表里，示例逻辑：

' 分页参数
Const batchSize As Long = 10000
Dim totalRows As Long: totalRows = 150000 ' 可以先查count(*)获取实际总行数
Dim offset As Long: offset = 0
Dim currentRow As Long: currentRow = ActiveCell.Row

Do While offset < totalRows
    With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Vertica;", Destination:=Cells(currentRow, 1))
        .CommandText = "Select SalesID, Revenue from Table LIMIT " & batchSize & " OFFSET " & offset
        .BackgroundQuery = False
        .Refresh BackgroundQuery:=False
        ' 下次写入的行号 = 当前行号 + 本次拉取的行数
        currentRow = currentRow + .ResultRange.Rows.Count
        .Delete ' 用完删除临时QueryTable避免冲突
    End With
    offset = offset + batchSize
Loop
' 最后合并成一个表或者直接保留数据即可

4. 基础错误排查 #

• 先直接在Vertica客户端执行Select SalesID, Revenue from Table，确认SQL本身没有语法错误、你使用的账号有该表的查询权限
• 确认你使用的是Vertica官方最新版ODBC驱动，旧版驱动本身存在大量大数据量拉取的兼容性bug
• 检查本地Excel版本，32位Excel的单表内存限制较低，如果是32位版本建议换成64位Excel

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