We will be migrating from Ask to Discourse on the first week of August, read the details here

Pergunte aqui
0

Pegar Diretório do arquivo atual.

perguntadas 2021-01-30 14:18:41 +0200

imagem do gravatar de Schiavinatto

updated 2021-01-30 15:13:34 +0200

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

Descrição da imagem

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
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2021-01-31 15:03:50 +0200

imagem do gravatar de Ronaldo Elias

updated 2021-01-31 16:35:13 +0200

imagem do gravatar de Schiavinatto

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
editar assinalar como ofensivo Excluir Link mais

Comentários

Ola @Ronaldo Elias, 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
imagem do gravatar de SchiavinattoSchiavinatto ( 2021-01-31 16:36:53 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2021-01-30 14:18:41 +0200

Lidas: 36 vezes

Última atualização: Jan 31