Libre表計算アプリでリネーム マクロを作りたい

質問

エクセルでは作動しているVBAマクロがあります。
これをlibreで動くマクロに作り変えたい。
コードはむやみに開示しないことを条件にいただいたものなので、ここでは提示は控えます。

作りたいのはリネームアプリになりますが、Libreは初めてなので独学でやるとかなり遠回りになりそうなのでお教え願いたいです。

以下の流れのコードを作るのに、このサイトを参考にしろと教えていただきたいのです。

1　シート上のボタン１を押すとダイアログ1が現れる
2　ダイアログ1上の参照ボタンを押すと、リネームしたいファイルがあるフォルダを選ぶエクスプローラのような画面が現れる。
3　選んだフォルダのパスをダイアログ１のテキストboxに表示

1はここを見ろ　2はここを見ろ　3はここを見ろ
と教えてください。

回答No.2

NuboChan · ベストアンサー

これで最後にします。

＞どこにコードを書けばよいのかというレベル

と言うことなので以下を紹介します。

【LibreOfficeマクロ】Editor起動
http://seskillup.jp/%E3%80%90libreoffice%E3%83%9E%E3%82%AF%E3%83%AD%E3%80%91editor%E8%B5%B7%E5%8B%95/

個人的には、MS_Officeの利用者なのでLibreOfficeに関しては関心がありません。

同じURLでマクロについて入門解説があるのでそこから始めてみてはいかがですか？
http://seskillup.jp/category/syosinsya-kouza/libreoffice-macro-basic/

お礼

何度も回答ありがとうございます。 エクセルが搭載されていないPCを買ったのでlibreに挑戦し、最初はどんなことでも取っつきにくく苦戦してしていましたが、何とか形になってきました。

Powered by GRATICA

回答No.1

NuboChan

このコードは、ユーザーがボタンをクリックするとダイアログを表示し、
フォルダ選択ダイアログを開き、選択したフォルダのパスをテキストボックスに表示するように設計されています。

REM ダイアログを表示するマクロ
Sub ShowDialog1()
DialogLibraries.LoadLibrary("Standard")
oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oDialog1.execute()
End Sub

REM フォルダ選択ダイアログを開くマクロ
Sub OpenFolderDialog()
oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oFolderPicker = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
oFolderPicker.execute()
oDialog1.getControl("TextBox1").Text = oFolderPicker.Directory
End Sub
```

このコードは、LibreOffice Basicで書かれており、
`Dialog1`という名前のダイアログと、`TextBox1`という名前のテキストボックスが既に作成されていることを前提としています。

この程度のマクロであれば、
その感動するVBAをLibreOfficeのマクロに変換するようにAIに依頼する事が可能かも？

お礼

回答ありがとうございます。 質問にもう少し詳しく書けばよかったのですが、初めてLibreを使うので、どこにコードを書けばよいのかというレベルなのです。 そこでサイトを紹介してほしかったのです。

Powered by GRATICA