LibreOffice表格启动时ThisComponent.CurrentController不存在问题求助

核心问题分析 #

你遇到的无限循环是因为LibreOffice宏执行是同步阻塞的——宏运行期间，文档的UI控制器（CurrentController）不会继续加载，而宏又在等待控制器加载完成，形成死锁。要解决这个问题，核心思路是避免在UDF中依赖UI相关对象，或者用非阻塞的方式处理初始化延迟。

方案1：移除对CurrentController的依赖（推荐） #

UDF的设计应尽量脱离UI依赖，直接通过文档的工作表集合获取目标表，无需借助ActiveSheet（该属性依赖CurrentController）。你的代码中使用的是第一个工作表（getCellByPosition(0,0)），可以直接通过Sheets索引访问：

Function Eval(Formula As Variant) As Variant
    Dim oDoc As Object
    Dim oTargetSheet As Object
    Dim oWorkCell As Object
    oDoc = ThisComponent
    ' 直接通过工作表索引获取，无需CurrentController
    oTargetSheet = oDoc.Sheets(0)
    oWorkCell = oTargetSheet.getCellByPosition(0, 0)
    oWorkCell.setFormula(Formula)
    If oWorkCell.getError = 0 Then
        Eval = oWorkCell.getDataArray()(0, 0)
    Else
        Eval = oWorkCell.getString()
    EndIf
End Function

这种方式完全绕开了CurrentController的依赖，无论文档是否加载完成，只要ThisComponent可用就能正常执行，从根源解决问题。

方案2：有限次数重试+状态检查 #

如果必须使用ActiveSheet，可以给重试逻辑设置最大次数，避免无限循环，同时通过错误判断控制重试流程：

Sub WaitForController()
    Dim iMaxRetries As Integer
    Dim iRetryCount As Integer
    iMaxRetries = 20 ' 最多重试20次，总等待2秒
    iRetryCount = 0
    
    On Error Resume Next
    Do While iRetryCount < iMaxRetries
        ' 尝试访问CurrentController
        ThisComponent.CurrentController
        If Err.Number = 0 Then Exit Do ' 成功获取，退出循环
        Err.Clear
        Wait 100 ' 等待100ms后重试
        iRetryCount = iRetryCount + 1
    Loop
    On Error GoTo 0
    
    ' 重试次数耗尽仍失败，抛出提示
    If iRetryCount >= iMaxRetries Then
        MsgBox "文档初始化超时，无法获取工作表控制器"
    End If
End Sub

修改UDF调用这个重试宏：

Function Eval(Formula As Variant) As Variant
    Dim oDoc As Object
    Dim oCurrentSheet As Object
    Dim oWorkCell As Object
    WaitForController()
    oDoc = ThisComponent
    oCurrentSheet = oDoc.CurrentController.ActiveSheet
    oWorkCell = oCurrentSheet.getCellByPosition(0,0)
    oWorkCell.setFormula(Formula)
    If oWorkCell.getError = 0 Then
        Eval = oWorkCell.getDataArray()(0,0)
    Else
        Eval = oWorkCell.getString()
    EndIf
End Function

此方案仍存在一定风险（若文档加载极慢仍会失败），仅作为备选。

方案3：延迟计算至文档加载完成 #

通过监听文档的Loaded事件，在文档完全初始化后触发UDF重新计算：

1. 打开宏编辑器，找到ThisDocument的Document Loaded事件
2. 添加以下事件处理代码：

Sub Document_Loaded
    ' 重新计算所有单元格，确保UDF获取正确的上下文
    ThisComponent.calculateAll()
End Sub

3. 修改UDF，在初始化失败时返回占位值：

Function Eval(Formula As Variant) As Variant
    Dim oDoc As Object
    Dim oCurrentSheet As Object
    Dim oWorkCell As Object
    
    On Error Resume Next
    oDoc = ThisComponent
    oCurrentSheet = oDoc.CurrentController.ActiveSheet
    ' 若获取失败，返回占位符，等待后续重新计算
    If Err.Number <> 0 Then
        Eval = "#LOADING"
        Exit Function
    End If
    On Error GoTo 0
    
    oWorkCell = oCurrentSheet.getCellByPosition(0,0)
    oWorkCell.setFormula(Formula)
    If oWorkCell.getError = 0 Then
        Eval = oWorkCell.getDataArray()(0,0)
    Else
        Eval = oWorkCell.getString()
    EndIf
End Function

启动时单元格会显示#LOADING，文档加载完成后自动重新计算得到正确结果。

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