如何将 Excel VBA 移植到 OpenOffice 基础版？

Question

如何将 Excel VBA 宏移植到 OpenOffice 基本宏？

这里是每 5 秒刷新一次的宏。

Private Sub Workbook_Open()
' Written in ThisWorkbook
Call RefreshTime
End Sub

Sub RefreshTime()
' Written in a module
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:05"), "RefreshTime"
Range("B10").Value = "My Current Time of the System:"
Range("C10").Value = Format(Now, "hh:mm:ss AM/PM")
Beep
Application.ScreenUpdating = True

End Sub

我尝试将此宏转换为 OpenOffice 宏（使用 http://www.business-spreadsheets.com/vba2oo.asp）

Private Sub Workbook_Open()
' Written in ThisWorkbook
Call RefreshTime
End Sub
Sub RefreshTime()
' Written in a module
ThisComponent.LockControllers
ThisComponent.RefreshAll
Application.OnTime Now + TimeValue("00:00:05"), "RefreshTime"
ThisComponent.CurrentController.ThisComponent.CurrentController.ActiveSheet.getCellDim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)ByName(("B10")).Value = "My Current Time of the System:"
ThisComponent.CurrentController.ThisComponent.CurrentController.ActiveSheet.getCellDim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)ByName(("C10")).Value = Format(Now, "hh:mm:ss AM/PM")
Beep
ThisComponent.UnlockControllers
End Sub

这行代码导致语法错误的是：

ThisComponent.CurrentController.ThisComponent.CurrentController.ActiveSheet.getCellDim oSheet as Object[n]oSheet =  ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)ByName(("B10")).Value = "My Current Time of the System:"

但有错误

基本语法错误。预期：，。

在 oSheet 中作为对象。

如何让它在 OpenOffice 中运行？

Answer 1

此代码似乎存在许多问题。我们来看看这一行：

ThisComponent.CurrentController.ThisComponent.CurrentController.ActiveSheet.getcellDim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)ByName(("B10")).Value = "My Current系统时间："

• 太长了。您需要按 Enter 来添加多个换行符。
• 它说“ThisComponent.CurrentController”两次。
• Dim oSheet as Object[n] -- 但 n 从未被声明或定义。
• ActiveSheet.getcell -- 我不知道有任何这样的方法。见https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide/Cells_and_Ranges。
• ByName(("B10")) -- 括号太多，同样没有“ByName”这样的方法。
• 什么是$1？也许您的意思是像"$A1:$A5" 这样的范围。

还有：

• Private Sub Workbook_Open -- 看起来像 VBA，而不是 OpenOffice Basic。

有关 OpenOffice 宏的介绍以及许多出色的示例，请参阅 Andrew Pitonyak's Macro Document。

不要说：“这是 Excel VBA 中的代码；OpenOffice Basic 中的代码是什么？”，而是在 stackoverflow 上提出如下问题：

“我需要在 OpenOffice Basic 中选择单元格 A1。查看（在线资源），我尝试了 X，但它给出了关于 Z 行的 Y 错误消息。”