Obtener ruta local del libro de Excel

[Sergio]

¡Hola!

Me encuentro trabajando con un archivo ubicado en un servidor Sharepoint.

Deseo obtener la ruta local de dicho archivo en vez de la URL de SharePoint.

He utilizado la función CELDA ("nombrearchivo") pero siempre me devuelve la URL

También lo he intentado con una macro:

Sub sss()
FilePath = ThisWorkbook.FullName
FileOnly = ThisWorkbook.Name
pathonly = Left(FilePath, Len(FilePath) - Len(FileOnly))

[a3] = pathonly
End Sub

Pero también me devuelve la URL.

Ni que decir tiene que el archivo está alojado en OneDrive empresarial y ubicado en mi equipo (con la opción de mantenerlo siempre en mi equipo).

¿Alguna idea para obtener la ruta?

 

[Antoni]

Hablo por no callar, pero ¿Podría ser esto?

Ruta = ThisWorkbook.Path & "\" & ThisWorkbook.Name

 

[Sergio]

Gracias Antoni.

Tu código me devuelve la ruta de SharePoint.

He seguido buscando y he encontrado esta web donde hay un código que sí funciona:

https://stackoverflow.com/questions/33734706/excels-fullname-property-with-onedrive

Gracias de nuevo,