CALC　マクロ　ファイルのパスを取得

CALC　マクロ　ファイルのパスを取得

AIで・・・
libreoffice calc ファイルのパスを取得

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

Sub SelfFileDirName()
Dim oUrl As String
Dim FileName As String
Dim FilePath As String
Dim FileDir As String
oUrl = ThisComponent.getURL
FileName = Dir(oUrl, 0)
MsgBox FileName
FilePath = ConvertFromUrl(oUrl)
MsgBox FilePath
FileDir = Replace(FilePath, FileName, "")
MsgBox FileDir
End Sub

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

実行すると

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

　LibreOffice BASIC(マクロ）

　ホームページ