Pegar Diretório do arquivo atual

[schiavinatto]

Alguém conhece a maneira de pegar esta informação do arquivo:

Internamente o nome é Location ou URL
Conforme Extensão MRI-1.3.4.oxt

Conheço esta macro, mas não é o que necessito…

Sub DirAtual
MsgBox CurDir, 0, "É o Diretório atual da instalação do LibreOffice:" 
End Sub

[RonaldoElias]

Essa macro poderá resolver a pergunta.

Sub DiretorioLibreOffice
    Dim oDiretorioFormulario(), sDiretorioFormulario as String, iDF as Integer
    	
   	oDiretorioFormulario() 	= ThisComponent.getArgs()
   	On Error Resume Next
   	oDiretorioFormulario 	= oDiretorioProtocolo(iDF)
   	sDiretorioFormulario 	= sDiretorioFormulario & CStr(oDiretorioFormulario(iDF).Value)
   	sDiretorioFormulario 	= Mid(sDiretorioFormulario,1,11)'Mostra a pasta criada na raiz do disco.
    
   	MsgBox "Esse é o caminho atual do documento ativo: " & sDiretorioFormulario,64,"Diretório Atual" 
End Sub

[schiavinatto]

Ola @RonaldoElias, resolveu, só alterei de “1,11” para “9,200” e para colocar a informação em uma célula…

Sub DiretorioLibreOffice

Dim oDiretorioFormulario(), sDiretorioFormulario as String, iDF as Integer
Dim sDir As String 
oDiretorioFormulario()  = ThisComponent.getArgs()
On Error Resume Next
oDiretorioFormulario    = oDiretorioProtocolo(iDF)
sDiretorioFormulario    = sDiretorioFormulario & CStr(oDiretorioFormulario(iDF).Value)
sDiretorioFormulario    = Mid(sDiretorioFormulario,9,200)'Mostra a pasta criada na raiz do disco.
	sDir = ConvertFromUrl( sDiretorioFormulario )
	ThisComponent.Sheets.getByName( "Plan1" ).getCellRangeByName( "B17" ).string = sDir
End Sub