LibreOffice宏开发需求：使用指定CSV文件替换Data.ods中的stocks工作表

没问题，我帮你写一个完整的LibreOffice宏，刚好能解决你想要的「选择CSV文件并替换stocks工作表」的需求，还会默认打开当前文档所在的目录，方便你快速找到目标CSV：

Sub ReplaceStocksSheetWithCSV()
    Dim oFileDialog As Object
    Dim sSelectedFile As String
    Dim oDoc As Object
    Dim oStocksSheet As Object
    Dim oRange As Object
    Dim aOptions As New com.sun.star.beans.PropertyValue
    Dim aFilterOptions As New com.sun.star.beans.PropertyValue
    
    ' 获取当前打开的Data.ods文档
    oDoc = ThisComponent
    
    ' 尝试定位名为"stocks"的工作表
    On Error Resume Next
    oStocksSheet = oDoc.Sheets.getByName("stocks")
    On Error GoTo 0
    
    ' 如果找不到stocks表，弹出提示后退出
    If IsNull(oStocksSheet) Then
        MsgBox "错误：当前文档中找不到名为stocks的工作表！", MB_OK + MB_ICONERROR
        Exit Sub
    End If
    
    ' 创建文件选择器
    oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
    oFileDialog.Title = "选择要导入的CSV文件"
    
    ' 只显示CSV格式文件，避免选错类型
    oFileDialog.appendFilter("CSV文件 (*.csv)", "*.csv")
    oFileDialog.setCurrentFilter("CSV文件 (*.csv)")
    
    ' 设置初始目录为当前文档所在的目录
    Dim sDocPath As String
    sDocPath = oDoc.URL
    ' 适配不同系统的路径分隔符
    If InStr(sDocPath, "\") > 0 Then
        sDocPath = Left(sDocPath, InStrRev(sDocPath, "\"))
    Else
        sDocPath = Left(sDocPath, InStrRev(sDocPath, "/"))
    End If
    oFileDialog.setDisplayDirectory(sDocPath)
    
    ' 显示选择器，获取用户选中的文件路径
    If oFileDialog.execute() = com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
        sSelectedFile = oFileDialog.getFiles()(0)
    Else
        ' 用户取消选择，直接退出
        Exit Sub
    End If
    
    ' 清空stocks工作表的所有内容（包括格式和数据）
    oRange = oStocksSheet.getCellRangeByPosition(0, 0, oStocksSheet.Columns.getCount()-1, oStocksSheet.Rows.getCount()-1)
    oRange.clearContents(com.sun.star.sheet.CellFlags.ALL)
    
    ' 设置CSV导入参数（默认逗号分隔、双引号为文本限定符、UTF-8编码，第一行作为表头）
    aOptions.Name = "FilterName"
    aOptions.Value = "Text - txt - csv (StarCalc)"
    aFilterOptions.Name = "FilterOptions"
    ' 参数格式：分隔符ASCII码,文本限定符ASCII码,字符集,第一行是否为表头(0=否/1=是),跳过行数,...
    ' 如果你用制表符分隔，把第一个数字改成9即可
    aFilterOptions.Value = "44,34,UTF8,1,0,false,false,false"
    
    ' 将CSV数据导入到stocks工作表的A1单元格开始位置
    oDoc.loadComponentFromURL(sSelectedFile, "_self", 0, Array(aOptions, aFilterOptions))
    
    ' 提示操作完成
    MsgBox "stocks工作表已成功替换为选中的CSV文件内容！", MB_OK + MB_ICONINFORMATION
End Sub

代码说明： #

• 智能目录定位：默认打开当前Data.ods所在的文件夹，不用你手动找路径
• 容错处理：先检查是否存在stocks工作表，避免运行出错；也支持用户取消选择的情况
• 干净替换：完全清空旧工作表的所有内容，确保新数据不会和旧内容混合
• 可自定义参数：如果你的CSV用的是其他分隔符（比如制表符），修改FilterOptions里的第一个数字就行（制表符对应ASCII码9）

使用步骤： #

1. 打开你的Data.ods文件
2. 按下Alt+F11打开LibreOffice宏编辑器
3. 在左侧导航栏找到你的文档，右键点击插入一个模块
4. 将上面的代码粘贴到模块中，保存宏
5. 回到文档，按下Alt+F8，选择ReplaceStocksSheetWithCSV宏并运行

这样就能一键完成选择CSV并替换stocks表的操作啦！

备注：内容来源于stack exchange，提问作者bigstreet