将40万行ODS表格导入LibreOffice Base失败，求解决方案

一、分批导入法 #

大数量数据直接导入容易触发Java内存溢出或空指针异常，拆分后导入更稳定：

• 用LibreOffice Calc打开ODS，把数据拆分成多个5万行以内的子工作表（可通过数据->筛选->自动筛选按范围拆分，或手动复制粘贴到新表）
• 对每个子表，要么直接拖入Base的表格区域创建新表，要么用Base的文件->导入->数据向导，匹配字段后导入到已建好的空表中
• 每次导入后打开表格确认数据是否正常，再进行下一批导入

二、转CSV格式后导入 #

CSV格式比ODS更轻量，Base处理起来更高效：

• 在Calc中打开ODS，选择文件->另存为，格式选CSV，编码设为UTF-8，分隔符根据数据情况选逗号或制表符，注意勾选“保存单元格内容”
• 打开目标Base数据库，通过文件->导入->数据选择CSV文件，按向导设置字段类型、分隔符，直接导入到新表或已存在的结构匹配的空表
• 若数据包含特殊字符或换行，导出CSV时要确保Calc正确处理，避免导入时字段错位

三、将只读ODS数据源转为独立数据库 #

无需宏，直接通过复制粘贴迁移：

• 新建一个Base独立数据库（默认选HSQLDB嵌入式即可）
• 同时打开ODS作为数据源的只读Base文件，以及新建的独立数据库
• 在只读数据库的目标表格上右键选复制，切换到新数据库的表格区域，右键选粘贴，选择“复制数据和结构”，等待迁移完成
• 若数据量过大，可分批复制不同范围的行，避免内存压力

四、宏实现批量写入（进阶方案） #

如果上述方法都失效，可通过LibreOffice Basic宏分批写入数据，避免一次性加载全量数据：

• 核心思路是按固定批次（比如1000行）读取ODS数据，构建批量插入SQL执行，减少单次操作的内存占用
• 示例代码框架（需根据自身字段调整）：

Sub ODStoBase()
    Dim oSheet As Object
    Dim oDatabase As Object
    Dim oStmt As Object
    Dim i As Integer, batchSize As Integer
    batchSize = 1000 ' 每次批量插入行数，可根据内存调整
    
    ' 获取ODS工作表（替换为你的工作表名）
    oSheet = ThisComponent.Sheets.getByName("Sheet1")
    ' 连接目标Base数据库（替换为你的数据库名称）
    oDatabase = CreateUnoService("com.sun.star.sdb.DatabaseContext").getByName("MyDatabase")
    Dim oConn As Object
    oConn = oDatabase.getConnection("", "") ' 嵌入式数据库无需用户名密码
    oStmt = oConn.createStatement()
    
    ' 从第2行开始（跳过表头）
    For i = 2 To oSheet.Rows.Count Step batchSize
        Dim endRow As Integer
        endRow = i + batchSize - 1
        If endRow > oSheet.Rows.Count Then endRow = oSheet.Rows.Count
        
        ' 构建批量插入SQL（替换为你的表名和字段名）
        Dim sql As String
        sql = "INSERT INTO ""TargetTable"" (""ID"",""COL1"",""COL2"") VALUES "
        Dim j As Integer
        For j = i To endRow
            Dim idVal As Integer, col1Val As String, col2Val As String
            idVal = oSheet.getCellByPosition(0, j-1).Value
            col1Val = Replace(oSheet.getCellByPosition(1, j-1).String, "'", "''") ' 转义单引号
            col2Val = Replace(oSheet.getCellByPosition(2, j-1).String, "'", "''")
            sql = sql & "(" & idVal & ",'" & col1Val & "','" & col2Val & "'),"
        Next j
        sql = Left(sql, Len(sql)-1) ' 移除末尾多余逗号
        
        ' 执行插入
        oStmt.executeUpdate(sql)
    Next i
    
    ' 关闭资源
    oStmt.close()
    oConn.close()
End Sub

• 注意：根据字段类型调整代码（数字类型不用加单引号，日期类型需转成数据库兼容格式），运行前务必备份ODS和Base数据库

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