LibreOffice Basicで他ブックに書き込みたい

Question

実現したいこと

libreofficeで他ブックへの書き込みをしたい

前提

お世話になっております。
この度諸事情によりEXCELvbaからLibreOfficeに移行することになりました。
vbaを使っていたのでそれも移行するのですがどうにもエラーで詰まっています。
ご協力お願いします。

発生している問題・エラーメッセージ

ブック指定ができない。
ブック1.シート1のlibrebasicでブック2.シート1のセルに書き込みをしたいのですが指定方法が分かりません。
ブック自体はどちらも開いている前提で指定する方法はあるのでしょうか

  ThisComponent.CurrentController.ActiveSheet = ThisComponent.Sheets.getByName("シート名")

上記のコードでシートをアクティブにする方法は分かっています。同じようにできるのでしょうか？

調査したこと

ネットで検索し調べていますが出てくるのはシートの指定ばかりです。添付コードのsheetの部分をbookに変えるなどやってみましたがうまくいきませんでした。

補足情報（FW/ツールのバージョンなど）

libreoffice7.6

Comments

[YT0014]

古い情報ですが、StartDesktopからの操作のようです。
http://calibreblo.blogspot.com/2011/04/blog-post_2121.html
また、ブックではなくコンポーネントと呼ぶようです。

Answer 1

以下で開いている他のファイルに書き込めました。

    Dim oDoc As Object
    Dim oSheet As Object
    Dim sDocName As String
    
    ' 書き込みたいファイルの名前を指定します。
    sDocName = "無題 2.ods"
    
    ' 開いているすべてのドキュメントを取得します。
    Dim oDocs As Object
    oDocs = StarDesktop.getComponents().createEnumeration()
    
    
    ' 開いているドキュメントの中から指定した名前のドキュメントを探します。
	
    Do While oDocs.hasMoreElements()
    	oDoc=oDocs.nextElement()
        If oDoc.getTitle() = sDocName Then
            Exit Do
        End If
    Loop
        
    ' シートを取得します。
    oSheet = oDoc.Sheets.getByName("Sheet1")
    
    ' セルに値を設定します。
    oSheet.getCellByPosition(0, 0).setString("1")

Answer 2

[香車]東上☆あらし☆海美「

https://pineplanter.moo.jp/non-it-salaryman/2017/03/02/vba-on-libreoffice/
LibreOfficeでVBAを使う方法。1行おまじないを書くだけ！ - 非IT企業に勤める中年サラリーマンのIT日記(ja)

＞ LibreOfficeでも、”あるおまじない”をするとVBAが使えるんです。
＞ それは、エディタのトップに、Option VBASupport 1 という一文を入れるだけ。これだけでVBAが使えます。

これじゃダメですかね
」
回答への修正依頼 スパムと見受けられる内容を含む回答 2024/01/07 16:03
[香車]東上☆あらし☆海美「
ワシの意見は、貴方と異なります。
」

Answer 3

StarDesktopとか，LibreOffice BASIC Programming Guideとかの情報だと，例としては次のような感じでしょうか?

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

Sub Main

Dim Url2 As String
Dim Doc2 As Object
Dim Sheet2 As Object
Dim Cell2 As Object
DIm Dummy()
Url2 = ConvertToUrl("/home/ujimushi/Documents/test2.ods")
Doc2 = StarDesktop.loadComponentFromURL(Url2, " blank", 0, Dummy)
Sheet2 = Doc2.Sheets.getByName("Sheet1")
Cell2 = Sheet2.getCellRangeByName("A2")
Cell2.String = "hogehoge"

End Sub

Answer 4

ご協力いただきありがとうございました。様々参考になる回答があり嬉しく思います。
ただ今回の件に関してはactive指定など必要なく直接

Workbooks("ブック名.ods").Sheets("シート名").Cells(2, 1) = 記載内容

から始めれば問題なく動きました。自分の未熟さには驚きます。
ご協力ありがとうございました。