先直接点明你遇到的核心问题，再一步步修复代码里的坑：

1. 触发语法错误的直接原因：调用时的引号误用 #

在LibreOffice Basic里，字符串必须用双引号包裹，单引号是用来写注释的。你示例里的ExportToCsv(<path>, 'Data')用了单引号，这会直接抛出语法错误，正确的调用写法应该是：

ExportToCsv("C:\Your\File\Path\document.ods", "Data")

如果要导出多个工作表，直接用逗号分隔名称即可：

ExportToCsv("C:\Your\File\Path\document.ods", "Data", "Summary", "Report")

2. 代码里的逻辑漏洞与完整修复版 #

除了语法错误，你的代码还有几个潜在问题（比如未匹配到工作表时崩溃、只导出最后一个匹配表等），以下是修正后的完整代码：

Option Explicit ' 强制变量声明，避免拼写错误等隐性问题

Sub ExportToCsv(URL as String, ParamArray sheetNames() As Variant)
    Dim saveParams(1) as New com.sun.star.beans.PropertyValue
    saveParams(0).Name = "FilterName"
    saveParams(0).Value = "Text - txt - csv (StarCalc)"
    saveParams(1).Name = "FilterOptions"
    saveParams(1).Value = "44,34,0,1,1" ' 44=逗号分隔符, 34=双引号作为文本限定符
    
    ' 加载Tools库并处理路径
    GlobalScope.BasicLibraries.loadLibrary("Tools")
    Dim docURL as String
    docURL = ConvertToURL(URL)
    
    ' 打开文档并做异常判断
    Dim document as Object
    document = StarDesktop.loadComponentFromUrl(docURL, "_blank", 0, Array())
    If IsNull(document) Then
        MsgBox "无法打开指定文档！", MB_ERROR
        Exit Sub
    End If
    
    Dim baseName as String
    baseName = Tools.Strings.GetFileNameWithoutExtension(document.GetURL(), "/")
    Dim directory as String
    directory = Tools.Strings.DirectoryNameoutofPath(document.GetURL(), "/")
    
    Dim sheets as Object
    sheets = document.Sheets
    Dim sheet as Object
    Dim x as Integer
    Dim i as Integer ' 显式声明循环变量i
    Dim isSheetFound as Boolean
    isSheetFound = False
    
    ' 遍历工作表，匹配到指定名称就导出
    For x = 0 to sheets.Count - 1
        sheet = sheets.getByIndex(x)
        ' 检查当前表是否在待导出列表中
        For i = LBound(sheetNames) To UBound(sheetNames)
            If StrComp(sheet.Name, sheetNames(i), vbTextCompare) = 0 Then
                isSheetFound = True
                ' 激活当前匹配的工作表
                document.GetCurrentController.SetActiveSheet(sheet)
                ' 生成带表名的CSV文件名（避免多表导出时覆盖）
                Dim filename as String
                filename = directory & "/" & baseName & "_" & sheet.Name & ".csv"
                Dim fileURL as String
                fileURL = ConvertToURL(filename)
                ' 导出为CSV
                document.StoreToURL(fileURL, saveParams())
                Exit For ' 匹配到当前表后，跳出内层循环
            End If
        Next i
    Next x
    
    ' 未找到指定工作表时给出提示
    If Not isSheetFound Then
        MsgBox "未找到指定名称的工作表！", MB_WARNING
    End If
    
    ' 关闭文档
    document.close(True)
End Sub

3. 关键修复点说明 #

• 新增Option Explicit：强制变量声明，避免因变量名拼写错误导致的隐性bug
• 优化匹配逻辑：找到匹配工作表后立即导出，支持同时导出多个指定表（每个表生成单独的CSV文件，文件名带表名后缀防止覆盖）
• 增加错误处理：文档打开失败、未找到指定工作表时给出明确提示
• 移除冗余代码：删掉了无意义的sheet.isVisible = True操作
• 变量初始化：确保所有变量都被正确声明，避免未定义变量导致的崩溃

示例调用 #

假设你的文档路径是C:\Docs\sales.ods，要导出名为DATA和Summary的工作表，调用代码如下：

ExportToCsv("C:\Docs\sales.ods", "DATA", "Summary")

运行后会在原文档目录下生成sales_DATA.csv和sales_Summary.csv两个文件。

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