如何在LibreOffice Basic中直接调用Application.OnTime以保留全局变量

问题原因 #

你遇到的问题是因为LibreOffice BASIC中，通过字符串指定宏名的Application.OnTime调用，会在新的宏执行上下文启动Logic，导致全局变量被重新初始化，所以每次调用时ArrPump都会为空。

解决方案：用类模块保存状态 #

全局变量在跨上下文调用时容易丢失，改用类模块存储状态是更可靠的方式——类实例只要被全局引用持有，就会在文档打开期间保持数据不重置。

步骤1：创建类模块 #

1. 在LibreOffice宏编辑器中，右键点击项目 → 插入 → 类模块。
2. 将类模块命名为PumpState，在其中添加代码：

Option Explicit
Public ArrPump As TPump

步骤2：修改标准模块代码 #

把原来的全局变量替换为全局类实例，修改后的代码如下：

Option VbaSupport 1
Option Explicit

' 全局类实例，用于持久化状态，不会随上下文重置
Global g_PumpState As New PumpState

Sub Logic()
    ' 先检查状态是否初始化，按需进行初始化
    If IsEmpty(g_PumpState.ArrPump) Then
        ' 这里替换为你实际的ArrPump初始化逻辑
        ReDim g_PumpState.ArrPump(1 To 3)
    End If
    
    ' 在这里编写你的业务逻辑，直接操作g_PumpState.ArrPump即可
    ' 示例：打印数组长度（如果TPump是数组类型）
    MsgBox UBound(g_PumpState.ArrPump)
    
    Call NextRun
End Sub

Sub NextRun()
    Dim TimeToRun As Date
    TimeToRun = Now + TimeValue("00:00:01")
    ' 保持OnTime调用方式，此时访问的是同一个全局类实例的状态
    Application.OnTime TimeToRun, "Standard.Module1.Logic"
End Sub

原理说明 #

全局类实例g_PumpState会在文档打开后一直存在，每次OnTime调用Logic时，都是访问这个实例的ArrPump属性，不会因为上下文切换被重置，完美解决你的问题。

如果你的Logic原本是通过事件触发（带oEvent参数），可以调整触发逻辑，确保调用的是上述无参版本的Logic，或者在类模块中封装事件处理逻辑，保持状态一致性。

内容的提问来源于stack exchange，提问作者Антон Сибгатулин