当然可以实现你想要的自动导入+数据筛选追加需求！我在实际项目里帮客户处理过类似的场景，给你分享几个靠谱的方案：

这是最直接的Access原生方案，适合习惯在Access里操作的场景：

• 先手动创建导入模板：打开你的Access数据库，手动完成一次目标Excel文件的导入——选择文件、指定要提取的两个工作表、设置好筛选条件、选择“追加到现有表”模式，最后保存这个导入步骤（Access会帮你存成导入规范）。
• 编写VBA自动执行导入：写一段简单的VBA代码，调用你保存的导入规范，就能实现一键导入。如果要自动监听新文件，可以加个文件夹监听逻辑，或者结合Windows任务计划定时触发。示例代码：

Sub AutoImportExcelReports()
    Dim targetFolder As String
    Dim importSpecForType1 As String
    Dim importSpecForType2 As String
    Dim importSpecForType3 As String
    
    ' 替换成你的报表存放路径
    targetFolder = "C:\YourReportStorage\"
    ' 替换成你为三种格式创建的导入规范名称
    importSpecForType1 = "Import_Spec_TypeA"
    importSpecForType2 = "Import_Spec_TypeB"
    importSpecForType3 = "Import_Spec_TypeC"
    
    ' 这里可以加逻辑判断文件类型，比如根据文件名前缀/后缀区分三种格式
    ' 示例：假设文件名包含"TypeA"就用对应规范
    If Dir(targetFolder & "*TypeA*.xlsx") <> "" Then
        DoCmd.RunSavedImportExport importSpecForType1
    End If
    
    ' 重复上述逻辑处理另外两种格式
    ' ...
    
    MsgBox "报表数据已自动追加到数据库！"
End Sub

• 适配三种不同格式：为每种Excel报表格式单独创建导入规范，VBA里通过文件名、特定单元格标识等判断当前文件类型，调用对应的导入规则即可。

如果你更习惯用Excel宏处理数据，这个方案更顺手：

• 建立Excel与Access的连接：打开收到的报表Excel，通过「数据」选项卡连接到你的Access数据库，提前配置好要追加数据的目标表。
• 编写宏筛选并追加数据：在Excel里写宏，先对两个工作表分别应用筛选条件，再把筛选后的结果批量插入到Access表中。示例代码：

Sub ExportFilteredDataToAccess()
    Dim dbConn As Object
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, i As Long
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1") ' 替换成你的第一个工作表名
    Set ws2 = ThisWorkbook.Sheets("Sheet2") ' 替换成你的第二个工作表名
    
    ' 连接Access数据库
    Set dbConn = CreateObject("ADODB.Connection")
    dbConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;"
    
    ' 处理第一个工作表的筛选与追加
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow ' 假设第一行是表头
        ' 替换成你的特定筛选条件，比如判断B列是否为"目标类别"
        If ws1.Cells(i, "B").Value = "特定条件" Then
            dbConn.Execute "INSERT INTO AccessTable1 (Field1, Field2) VALUES ('" & ws1.Cells(i, "A").Value & "', '" & ws1.Cells(i, "C").Value & "')"
        End If
    Next i
    
    ' 处理第二个工作表，逻辑类似
    lastRow = ws2.Cells(ws2.Rows.Count, "D").End(xlUp).Row
    For i = 2 To lastRow
        If ws2.Cells(i, "E").Value > 100 Then ' 示例筛选条件
            dbConn.Execute "INSERT INTO AccessTable2 (FieldX, FieldY) VALUES ('" & ws2.Cells(i, "D").Value & "', '" & ws2.Cells(i, "F").Value & "')"
        End If
    Next i
    
    dbConn.Close
    Set dbConn = Nothing
    MsgBox "筛选后的数据已成功追加到Access！"
End Sub

• 自动触发宏：可以设置Excel文件打开时自动运行宏，或者用Windows脚本定时扫描报表文件夹，打开新文件后执行宏。

• 数据类型匹配：务必确保Excel里的字段类型和Access表的字段类型一致，比如文本对应文本、数字对应数字，避免导入时出现类型错误。
• 重复数据拦截：如果担心同一份报表重复导入，可以在Access表中设置主键，或者在VBA里加入重复检查逻辑（比如先查询Access表是否已有该条数据的主键值）。
• 错误捕获：在VBA代码里加上错误处理（比如On Error GoTo ErrorHandler），避免因为报表格式异常导致程序崩溃，还能记录错误信息方便排查。

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