LibreOffice Calcで開いているファイルの場所を取得する

Dim fileLocation As String
Dim directory As String
fileLocation = ConvertFromURL(ThisComponent.getLocation())
directory = Left(fileLocation, Len(fileLocation) - Len(ThisComponent.getTitle()))
MsgBox(directory)