LibreOffice Basic宏导出指定Sheet为CSV时无法选中目标表

作为VBA（准确说是StarBasic，毕竟你用的是LibreOffice）新手，你遇到的问题核心确实在嵌套循环的逻辑上。咱们一步步拆解问题，再给出修复方案：

循环逻辑的核心问题 #

你的目标是找到第一个匹配传入Sheet名的工作表，但当前代码的循环逻辑有两个关键缺陷：

1. 没有优先保留第一个匹配的索引
   当前代码会遍历所有Sheet，每遇到一个匹配的Sheet就更新requiredSheetIndex。这意味着如果有多个符合条件的Sheet，最终会选中最后一个匹配的Sheet；如果完全没有匹配的Sheet，requiredSheetIndex会默认取0（VBA/StarBasic中Integer的默认值），直接导致选中第一个Sheet，这就是你遇到的问题。

2. 找到匹配项后仍继续遍历
   哪怕第一个匹配的Sheet已经被找到，代码还是会继续遍历剩下的所有Sheet，既浪费资源，还可能在后续Sheet无匹配时保留错误的索引（比如初始的0）。

修复后的循环代码 #

我们修改循环逻辑，实现“找到第一个匹配项就立即终止遍历”，同时添加初始化和错误处理：

Dim x as Integer
Dim requiredSheetIndex as Integer
' 初始化索引为-1，标记"未找到匹配Sheet"的状态
requiredSheetIndex = -1

For x = 0 to sheetCount -1
    sheet = sheets.getByIndex(x)
    sheet.isVisible = True ' 确保Sheet可见（导出CSV可能依赖此设置）
    
    ' 检查当前Sheet是否在目标名称列表中
    For i = LBound(sheetNames) To UBound(sheetNames)
        If StrComp(sheet.Name, sheetNames(i), vbTextCompare) = 0 Then
            requiredSheetIndex = x
            ' 找到匹配项后，立即跳出内层循环，不再检查当前Sheet的其他名称
            Exit For
        End If
    Next i
    
    ' 已经找到第一个匹配的Sheet，直接跳出外层循环，停止遍历后续Sheet
    If requiredSheetIndex <> -1 Then
        Exit For
    End If
Next x

' 新增错误处理：如果未找到指定Sheet，提示用户并终止宏
If requiredSheetIndex = -1 Then
    MsgBox "未找到指定的工作表：" & Join(sheetNames, ", "), vbExclamation
    document.close(True)
    Exit Sub
End If

修改点说明 #

• 初始化requiredSheetIndex = -1：明确标记初始状态为“未找到”，彻底避免默认值0导致的错误选中第一个Sheet的问题。
• 双层循环的终止逻辑：找到第一个匹配项后，先跳出内层循环，再跳出外层循环，严格实现“首个匹配”的需求。
• 新增未找到的提示：不再默默导出错误的Sheet，让你清晰知道问题出在Sheet名称匹配上。

另外补充一句：LibreOffice中StoreToURL导出CSV时，默认只会导出当前活动Sheet，所以这部分逻辑是没问题的，如果后续遇到导出内容不对的情况，再针对性调整即可。

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