导出大型MS Access表至SharePoint失败，提示“System Resource Exceeded”

针对22万+条记录的Access表导出到Modern SharePoint时中途终止并提示资源耗尽的问题，以下是经过验证的解决思路：

1. 清理本地Access资源 #

• 关闭Access中所有非必要对象（查询、窗体、报表），仅保留待导出的表，减少内存占用
• 执行压缩和修复数据库：文件>信息>压缩和修复数据库，清理冗余数据碎片
• 重启Access和操作系统，释放系统资源后重新尝试导出

2. 提前配置SharePoint列表 #

Modern SharePoint列表的视图阈值（默认5000条）可能在导入过程中触发后台资源消耗，提前手动配置空列表：

• 在SharePoint上创建与Access表字段结构完全匹配的空列表（注意字段类型对应：如Access短文本→SharePoint单行文本，数字→数字等）
• 为列表添加必要的索引（尤其是主键或常用筛选字段），避免导入时后台自动创建索引占用资源

3. 优化VBA分批导出逻辑 #

原4000条批次可能仍存在资源泄漏，改用更小批次（1000条）并强制释放资源：

Sub BatchExportToSP()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim batchSize As Integer
    Dim currentOffset As Long
    Dim exportSQL As String
    
    Set db = CurrentDb
    batchSize = 1000
    currentOffset = 0
    
    ' 若需清空目标列表，取消注释以下行（注意替换列表名称）
    ' DoCmd.RunSQL "DELETE FROM [SharePoint目标列表名称]"
    
    Do While currentOffset < DCount("*", "待导出Access表名")
        ' 分页获取当前批次数据
        exportSQL = "SELECT * FROM 待导出Access表名 ORDER BY ID OFFSET " & currentOffset & " ROWS FETCH NEXT " & batchSize & " ROWS ONLY"
        Set rs = db.OpenRecordset(exportSQL)
        
        ' 导出批次数据到SharePoint列表
        DoCmd.TransferSharePointList acExport, acList, "https://你的SharePoint站点地址/sites/站点名/Lists/目标列表名", rs.Name, True
        
        ' 释放当前批次资源
        rs.Close
        Set rs = Nothing
        currentOffset = currentOffset + batchSize
        
        ' 强制释放内存并刷新数据库连接
        DoEvents
        db.Close
        Set db = Nothing
        Set db = CurrentDb
    Loop
    
    MsgBox "导出完成"
End Sub

• 替换代码中的表名、SharePoint站点地址、目标列表名称
• 每批导出后强制关闭并重新打开数据库，避免内存泄漏

4. 改用Power Automate服务器端导入 #

若本地Access资源受限，使用Power Automate绕开本地限制：

• 在SharePoint创建匹配字段结构的空列表
• 新建Power Automate即时云流，连接Access数据库获取全量记录
• 添加“应用到每一个”动作，设置1000条/批次的批量写入逻辑，直接在服务器端完成导入

5. 检查SharePoint站点配额 #

联系SharePoint管理员确认：

• 站点存储配额是否充足
• 列表项数上限是否满足22万+条的需求
• 是否存在临时的站点资源限制

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