Libreoffice basic でファイル名を取得したい。

Question

実現したいこと

Libreoffice basic( writer, calc )でファイル名を取得したい。

前提

ヘッダーに最終更新日時を入れたいと考えています。そのため、まず開いている
ファイル名(.odt/.ods)を取得したい。

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

「オブジェクト変数は設定できていない」

### 該当のソースコード
dim oDoc as Object
    oDoc = ThisComponent
    strFileName = oDoc.Url    <= ここでエラーとなる

```ここに言語名を入力
libreoffice basic
office のバージョンは 7.6

試したこと

ここに問題に対して試したことを記載してください。

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

マクロの杜にあるサンプルはマクロ内にファイル名を与えているので参考にならない。
あるいは新たなファイルを作るものなので、私が探しているものではないのです。

Comments

[maisumakun]

LibreOffice公式、あるいはそれに近いドキュメントは調べてみましたか？

Answer 1

LibreOffice、自身のファイル情報を取得する。
(OpenOffice Basic)自身のファイルの最終更新日時を知りたい

dim oDoc as Object
    oDoc = ThisComponent
    strFileName = oDoc.getUrl

が、正しいようです。
あと
ファイル名
Dir(strFileName ,0)
ファイルパス
ConvertFromUrl(strFileName )
更新日時
FileDateTime( ConvertFromUrl(strFileName ) )
が取得できると書いてありました。

getLocation()でも、取得できるようですが
何が違うのかはよくわかりません。

---

と回答してしまいましたが、その後試したところ、URLだけでも問題ないようですね。
回答を消すのがいいのか、どうするのがいいのかよくわからないので、追記で書きますが

今回の問題は、エラーメッセージから考えると
ThisComponentで、オブジェクトが取得できてないことが原因のようですね。
どのような使い方で提示のコードを実行したのでしょうか。

普通に実行するとThisComponentで現在の？ドキュメントを取得できるようです。

Answer 2

「LibreOffice Basicで他ブックに書き込みたい」への回答にあるリンクをたどった情報によると，

dim oDoc as Object
    oDoc = ThisComponent
    strFileName = oDoc.getLocation()

とかで取ってこれそうでしょうか?
ただし，hasLocation()でtrueが返ってくることが前提でしょうが。

Comments

[HorinoTora]

私の質問に対し、応答して頂いてありがとうございます。
私のテスト用のプログラムでのdim oDoc の位置が間違っていました。
テスト用プログラムのメインプログラムで、oDocを宣言すれば期待した通りに
なりました。
どうもありがとうございました。