如何在 libre office basic 中使用模块？

Question

我习惯了VBA，但我应该调试一些自由办公基本代码，所以我尝试在代码隐藏中编写一个基本模块来解决我的工作表。

问题是，每当我尝试运行模块时，它似乎不知道起点在哪里等，当我在 excel vba，它运行很容易..也许有人知道如何在 libre office 中处理模块以及为什么有一个 main 方法..

REM  *****  BASIC  *****

Sub Main
    Test()
End Sub


Sub Test    
    Dim MyStringVariable As String
    MyStringVariable = "Wow!"
    Worksheets(1).Range("A1").Value = MyStringVariable
End Sub

Answer 1

这里的模块不承载任何功能负载-这只是为了方便将您的项目的过程和功能划分为逻辑相关的代码组。

您的代码无法运行，因为此 Basic 不知道工作表，它使用 ThisComponent.GetSheets() 方法获取当前电子表格的所有工作表。这里集合的元素是从0开始编号的，而不是像你在VBA中习惯的那样从1开始编号（这也适用于书的页数，以及行数和列数）：

REM  *****  BASIC  *****

Sub Main
' This is just "template" - you can leave it empty, or remove it, or fill with code '
End Sub

Sub Test    
    Dim MyStringVariable As String
    MyStringVariable = "Wow!"
    ThisComponent.GetSheets().getByIndex(0).getCellRangeByName("A1").setString(MyStringVariable)
' Better write this as '
Dim oSheets As Variant
Dim oSheet As Variant
Dim oCell As Variant
    oSheets = ThisComponent.getSheets()
    oSheet = oSheets.getByIndex(0)
    oCell = oSheet.getCellByPosition(0, 0)
    oCell.setString(MyStringVariable)
End Sub

如何在 libre office basic 中使用模块？

How to use a module in libre office basic?

excel

vba

libreoffice

worksheet-function

basic