Access自定义导出数据至Excel：解决VBA错误94（Null值）问题

核心问题分析 #

错误94的直接原因是代码中尝试将Null值赋值给字符串变量，或对Null值执行了不允许的操作。结合你的代码，主要触发点有两个：

• 列选择列表框未选中任何项时，ListIndex为-1，调用Column(0, -1)返回Null
• 未处理筛选列表框的Null值，直接赋值给字符串变量并做空字符串判断

逐点修复代码 #

以下是修复后的完整代码，附带关键注释说明：

Private Sub ExportButton_Click()
    Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
    Dim strSQL As String
    Dim rs As Object
    Dim selectedColumns As String
    Dim selectedData As Variant ' 改用Variant处理Null值
    Dim lstColumns As ListBox
    Dim lstFilter As ListBox
    
    ' 引用表单上的列表框控件，简化代码
    Set lstColumns = Me.SelectedColumnListBox
    Set lstFilter = Me.SelectedDataListBox
    
    ' 校验列选择：必须至少选中一列
    If lstColumns.ItemsSelected.Count = 0 Then
        MsgBox "请至少选择一列导出！", vbExclamation
        Exit Sub
    End If
    
    ' 拼接选中的多列（支持多选需求）
    Dim varItem As Variant
    For Each varItem In lstColumns.ItemsSelected
        selectedColumns = selectedColumns & ", " & lstColumns.Column(0, varItem)
    Next
    ' 移除开头的逗号
    selectedColumns = Mid(selectedColumns, 3)
    
    ' 处理筛选条件：允许Null值
    selectedData = lstFilter.Value
    
    ' 构建SQL查询
    strSQL = "SELECT " & selectedColumns & " FROM full"
    ' 仅当有筛选值时添加WHERE条件
    If Not IsNull(selectedData) Then
        ' 自动判断字段类型（避免数值型字段加单引号）
        Dim fldType As Integer
        fldType = CurrentDb.TableDefs("full").Fields(lstColumns.Column(0, lstColumns.ItemsSelected(0))).Type
        Select Case fldType
            Case dbText, dbMemo, dbDate
                strSQL = strSQL & " WHERE " & lstColumns.Column(0, lstColumns.ItemsSelected(0)) & " = '" & Replace(selectedData, "'", "''") & "'"
            Case dbInteger, dbLong, dbSingle, dbDouble, dbCurrency
                strSQL = strSQL & " WHERE " & lstColumns.Column(0, lstColumns.ItemsSelected(0)) & " = " & selectedData
        End Select
        ' 可选：保留原代码的IS NULL逻辑，根据需求调整
        ' strSQL = strSQL & " OR " & lstColumns.Column(0, lstColumns.ItemsSelected(0)) & " IS NULL"
    End If
    
    ' 执行查询前校验SQL（调试用）
    ' Debug.Print strSQL
    
    ' 打开记录集
    On Error Resume Next ' 捕获SQL执行错误
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If Err.Number <> 0 Then
        MsgBox "查询执行错误：" & Err.Description, vbCritical
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 导出数据到Excel
    If rs.EOF And rs.BOF Then
        MsgBox "未找到匹配记录。", vbInformation
    Else
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        Set xlBook = xlApp.Workbooks.Add
        Set xlSheet = xlBook.Worksheets(1)
        
        ' 先导出表头
        Dim i As Integer
        For i = 0 To rs.Fields.Count - 1
            xlSheet.Cells(1, i + 1).Value = rs.Fields(i).Name
            xlSheet.Cells(1, i + 1).Font.Bold = True
        Next
        ' 导出数据
        xlSheet.Range("A2").CopyFromRecordset rs
    End If
    
    ' 资源清理
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    Set lstColumns = Nothing
    Set lstFilter = Nothing
End Sub

关键修复点说明 #

• 列表框选中校验：添加列选择的非空校验，避免未选列时触发Null错误
• 支持多列导出：循环处理列表框选中项，拼接多个字段名，满足按需选列的需求
• Null值安全处理：改用Variant类型存储筛选值，用IsNull()判断而非空字符串比较
• 字段类型适配：自动识别字段类型，避免数值型字段错误添加单引号导致SQL语法错误
• 表头导出：补充导出字段名的逻辑，让Excel表格更易读
• 错误捕获：添加SQL执行错误捕获，方便定位问题

表单控件配置建议 #

确保表单控件配置正确：

• SelectedColumnListBox：设置MultiSelect为Simple或Extended，允许多选列
• SelectedDataListBox：数据源绑定到需要筛选的字段（比如城市列表），或手动添加选项

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