Excel VBA中RecordSet为空时避免运行时错误13的解决方案问询

核心问题分析 #

当ADODB.RecordSet为空时，调用GetRows()方法会返回结构异常的数组，直接赋值给工作表会触发运行时错误'13'类型不匹配；同时RecordSet中的Null值直接存入数组也会引发后续赋值错误。以下是修改后的代码及关键优化点：

修改后的完整代码 #

' 从RecordSet获取结果并转换为适合工作表的数组，自动处理空RecordSet和Null值
Function GetSqlResultsAsArray(rs As ADODB.Recordset) As Variant
    Dim resultsArray As Variant
    Dim i As Long, j As Long
    
    ' 检查RecordSet状态：未实例化、未打开、或为空集合
    If rs Is Nothing Or rs.State <> adStateOpen Or (rs.EOF And rs.BOF) Then
        GetSqlResultsAsArray = Empty
        Exit Function
    End If
    
    ' 获取原始列优先数组
    resultsArray = rs.GetRows()
    ' 转置为行优先数组，匹配Excel工作表结构
    resultsArray = Application.Transpose(resultsArray)
    
    ' 遍历替换所有Null值为空字符串
    For i = LBound(resultsArray, 1) To UBound(resultsArray, 1)
        For j = LBound(resultsArray, 2) To UBound(resultsArray, 2)
            If IsNull(resultsArray(i, j)) Then
                resultsArray(i, j) = ""
            End If
        Next j
    Next i
    
    GetSqlResultsAsArray = resultsArray
End Function

' 将RecordSet结果填充到目标工作表，空结果时自动停止
Sub GetResultsData(rs As ADODB.Recordset, targetSheet As Worksheet)
    Dim resultsArray As Variant
    Dim lastRow As Long, lastCol As Long
    
    resultsArray = GetSqlResultsAsArray(rs)
    
    ' 数组为空则直接退出，不执行填充
    If IsEmpty(resultsArray) Then
        Exit Sub
    End If
    
    ' 清空目标表现有数据（可选，根据需求注释/保留）
    targetSheet.Cells.ClearContents
    
    ' 写入数组到工作表
    lastRow = UBound(resultsArray, 1)
    lastCol = UBound(resultsArray, 2)
    targetSheet.Range("A1").Resize(lastRow, lastCol).Value = resultsArray
    
    ' 可选：写入表头到第一行（需调整数据起始行至A2）
    ' Dim j As Long
    ' For j = 0 To rs.Fields.Count - 1
    '     targetSheet.Cells(1, j + 1).Value = rs.Fields(j).Name
    ' Next j
    ' targetSheet.Range("A2").Resize(lastRow, lastCol).Value = resultsArray
End Sub

关键优化说明 #

• 提前拦截空RecordSet：在函数开头通过rs.EOF And rs.BOF判断RecordSet是否为空，直接返回Empty，避免后续GetRows()调用引发错误。
• 处理Null值：遍历数组将所有Null值替换为空字符串，彻底解决赋值时的类型不匹配问题。
• 数组结构适配：GetRows()返回列优先数组，转置后变为行优先，符合Excel工作表的行存储逻辑，避免数据错位。
• 空结果终止操作：在子过程中检查数组是否为Empty，是空则直接退出，不执行任何填充操作。

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