常連

### 前提

ExcelVBAで作成した下記マクロをlibreOffice環境でも実行しようとしましたが、
CSVファイル作成まではたどり着いたものの中身が空のファイルになってしまいます。
basicの規法等に詳しくない為、どなたか記法をご教授頂けないでしょうか？

### やりたいこと

Excelの特定のセルに入力された値をcsvファイルに書き込みたい

### コード

    Option VBASupport 1
    Sub Click()
    
    Dim csvFile As String
    Dim targetRange As Range
    Dim wb As Workbook
    Dim fso As Object
    
    '出力するCSVファイルを指定
    csvFile = "D:\Test\sample.csv"
    
    'CSVファイルへ出力する範囲を指定 ※例としてシート「sample」のセル「D8」を指定
    Set targetRange = Worksheets("sample").Range("D8")
    
    
    '新規ブックを作成
    Set wb = Workbooks.Add
    
    'CSVファイルへ出力する範囲を新規ブックへコピー
    targetRange.Copy wb.Worksheets(1).Range("A1")
        
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '出力するCSVファイルが既に存在する場合は削除
    If fso.FileExists(csvFile) Then
        fso.deleteFile csvFile
    End If

    '新規ブックをCSVファイルとして出力
    wb.SaveAs Filename:=csvFile, FileFormat:=xlCSV, Local:=True
    
    '新規ブックを保存せずに閉じる
    wb.Close SaveChanges:=False
    
    '後片付け
    Set fso = Nothing


    End Sub

---------------------------

VBAマクロをLibreoffice環境下でも実行したい

### 実現したいこと

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

### 前提

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

### 発生している問題・エラーメッセージ
ブック指定ができない。
ブック1.シート1のlibrebasicでブック2.シート1のセルに書き込みをしたいのですが指定方法が分かりません。
ブック自体はどちらも開いている前提で指定する方法はあるのでしょうか
```
  ThisComponent.CurrentController.ActiveSheet = ThisComponent.Sheets.getByName("シート名")
```
上記のコードでシートをアクティブにする方法は分かっています。同じようにできるのでしょうか？

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

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

libreoffice7.6


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

### 実現したいこと
libreoffice calc マクロをパスワードで保護したいです。会社で使用するため自分か許可を得た人物以外コードを触れないようにする必要があります。
ご協力をお願いいたします。
### 発生している問題・分からないこと
macroに対してパスワードを掛ける方法は分かったのですがパスワードを使用した状態では実行時にエラーが生じることが分かりました。
以下ソースコードの冒頭です。

パスワードを掛けなければエラーは起きないので冒頭の指定に問題があるかもと思っています。



### 該当のソースコード

```libre basic
Option Compatible'日本語変数及び日本語関数を使用する
Option Explicit  '変数宣言を強制する
Option VBASupport 1 'round関数を使用する
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [x] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
googleでパスワードを掛けた後のエラーについて検索を掛けましたが同じ内容のエラーがヒットしませんでした。

### 追記
ご覧いただきありがとうございます。
問題の詳細が分かりましたので追記いたします。

この問題は「パスワードを掛けると動かない」ではなく「パスワードを掛けるとvba support 1が無効になる」というものでした。
試しに簡単な関数を作成してテストしたところvba support 1が必要な構文にエラーが発生していることが分かりました。

こうなるとすべてをlibreofice basic本来の書き方に戻すしか方法がありません。何とか有効化する方法はないのでしょうか
よろしくお願いいたします。 

libreoffice calcのマクロをパスワード保護したい

### 前提・実現したいこと
LibreOfficeを初めて使います。
ボタン1を作り、クリックするとそのボタンを非表示にしたいです。
また、ボタン2を押すことで非表示になったボタン1を表示させたいです。

ボタンはフォームコントロールから追加するボタンです。
### 発生している問題・エラーメッセージ
いくつかのサイトを参考に以下のようにマクロを書きました。
```VBA
Option VBASupport 1

sub test
Dim BT1 As Object
BT1 = ActiveSheet.getByName("Bt1")
ActiveSheet.BT1.Visible = False
End Sub
```

しかし、以下のようなエラーが出ます。
```
BASIC ランタイムエラー.
'423'
getByName
```

どうすればいいかさっぱりなのですが、そもそもLibreOffice CalcではExcelで言うところの「オブジェクト名」はどれに当たるのでしょうか？フォームのプロパティの名前、コントロールのプロパティの名前の2カ所を"bt1"にしています。

### 補足情報（FW/ツールのバージョンなど）
LibreOffice 6.4.4.2 64bit

LibreOffice Calc ボタンをマクロで表示／非表示させたい

windows10
LibreOffice 7.1.0.3

LibreOffice Baseで作成したDialogにはデフォルトでonLoadや読み込み時のイベントがありません。
イベントリスナーを作ろうとしているのですが、

```VBA
'ボタンクリックでdFindUserダイアログを開きます。
'そのdFindUserダイアログのonLoadイベントをハンドリングしたいです。
Sub onButtonClick()
	Dim evListener As Object
	DialogLibraries.LoadLibrary("Standard")
	FindUserDialog=CreateUnoDialog( DialogLibraries.Standard.dFindUser )
	evListener=CreateUnoListener( "FindUserDialog_","com.sun.star.awt.XTopWindowListener" )
	FindUserDialog.addTopWindowListener( evListener )

	FindUserDialog.Execute()
	FindUserDialog.Dispose()
End Sub

'windowOpenedハンドラ
Function FindUserDialog_windowOpened( oEv As com.sun.star.lang.EventObject )
	MsgBox "test"
End Function

'disposingハンドラ
Sub FindUserDialog_disposing( oEv As com.sun.star.lang.EventObject )
End Sub
```
[http://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/XTopWindowListener.html#windowOpened](http://www.openoffice.org/api/docs/common/ref/com/sun/star/awt/XTopWindowListener.html#windowOpened)
[http://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%2FDialog%2FEvent](http://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%2FDialog%2FEvent)
↑これらサイトを参考に書いてみたのですが、実行すると、、、

0. "BASIC ランタイムエラー.次のプロパティまたはメソッドが見つかりません: $(ARG1)。"というエラーのメッセージボックスが2度表示された後、
0. "test"のメッセージボックスが表示され、
0. 一瞬dFindUserダイアログが表示され、
0. 再度 "BASIC ランタイムエラー.次のプロパティまたはメソッドが見つかりません: $(ARG1)。"というエラーのメッセージボックスが表示され
0. 親windoswにフォーカス(フォアグラウンド)が当たろうとするたび "BASIC ランタイムエラー.次のプロパティまたはメソッドが見つかりません: $(ARG1)。"のエラーダイアログの表示
0. 結果Base自体が終了できなくなる。

ということを繰り返しています。

"test"のメッセージボックスが表示されるということはハンドリングできているとおもわれるのですが、、、一瞬dFindUserダイアログも表示されますし。

試行錯誤したのですが、どこが悪いのか解決できそうにありません。
お知恵を拝借できないでしょうか?

LibreOffice Baseで作成したDialogにイベントリスナーを設定したい。

Ruby on RailsにてExcel形式のファイルをPDFに変換してダウンロードできる機能をもったWebアプリケーションを構築しております。


`gem libreconv` を利用し、LibreOfficeを介してPDFへ変換するといったものです。
当方の開発環境である、MacではLibreOfficeのインストールを行い、
正常に変換処理が行えるのですが、
いざ、EC2(AmazonLinux)へデプロイを行い、本番環境で動作確認を行ったところ、下記のようなエラーが発生しております。

```
IOError (Can't find LibreOffice or OpenOffice executable.):
```

下記サイトを参考にし、LibreOfficeのインストールも行っているのですが、
Libreconv側で認識ができないようです。

[https://qiita.com/unvavo/items/8302ea50235da0ea69fb](https://qiita.com/unvavo/items/8302ea50235da0ea69fb)

なにか他に必要な設定等が有りましたら、ご教示願います。
また、不足している情報等有りましたら、ご指摘のほどよろしくお願い致します。

AmazonLinuxでIOError (Can't find LibreOffice or OpenOffice executable.):が発生する

はじめまして！

LibreOfficeCalcでセルに入力されたURLの一覧から、自動でIEを起動して特定のサイトでURLを調査するシステムを作っています。
本来はaguse等のURL調査サイトで入力する予定なのですが、google検索でテストをしていてどうしてもうまくいかず、こちらに質問させて頂きました。
サイトのソースから、フォームの名前は「f」、入力欄の名前は「q」と確認できたので、下記のようなコードを作ったのですが、エラーメッセージの解決方法が分からず困っています。
当方、VBAをちょっとかじったくらいでプログラムは初心者です。

宜しくお願いします！

### 発生している問題・エラーメッセージ

```
BASICランタイムエラー'1'
Type:com.sun.star.lang.IllegalArgmentException
Message:[automation bridge]The object does not have a functionor readable property "q
```

### 該当のソースコード

```
Option VBASupport 1
Sub Submit()

Dim Doc As Object
Dim Sheet As Object
Dim SendURL As String
Dim IE As Object

Doc = ThisComponent
Sheet = Doc.Sheets(0)
SendURL = Sheet.getCellByPosition(0,2).String

IE = createObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("https://www.google.co.jp/")
Do While IE.Busy = True Or IE.readyState < 4
	DoEvents
Loop
If IE.LocationURL = ("https://www.google.co.jp/") Then
	IE.Document.f.q.value = SendURL
End If
End Sub
```

### 試したこと
指定している入力欄が間違っている（ソースの確認ミス）かとも思ったので、「IE.Document.f.q.value」の部分を変更してみましたが、そういうことではないようで。
「com.sun.star.lang.IllegalArgmentException」というものを使わないとダメですよ、と言われている気がするのですが、どのようにしたら使えるのかが分かりません．．．

### 補足情報（FW/ツールのバージョンなど）
使用言語はLibreOffice Basic 6.1.0.3です。

LibreOfficeCalcでセル内容をIE上の入力窓に入力したい

LibreOfficeで指定範囲の空白カラムのみAAAに変換したいのですが、いろいろ調べても方法が分かりませんでした。

マクロを使った方法でも構いませんので、どなたかご教示いただけないでしょうか。


一応下記の、空白カラムを選択するという記事を応用できないかと試してみたのですが、
下記の記事のマクロを実行するとエラーが表示されました。

https://inoshishinotakinobori.com/select-blank-cell/

エラー内容
> BASIC ランタイムエラー.
> '91'
> オブジェクト変数は設定できていません。