Bestandslocatie (dropbox) vermelden in een cel

[Robert Smidt]

Beste Helpmij-ers,

Ik wil graag in een cel een vermelding plaatsten wat de locatie is waar het bestand zich bevindt. Ik heb hier =INFO("directory") gevonden echter geeft deze een ander locatie aan dan de daadwerkelijke locatie. Misschien heeft het ook iets te maken omdat het een dropboxmap is.

Een antwoord zie ik met veel belangstelling tegemoet.

Robert

 

[HSV]

Zet eens onderstaande in een cel.

=cel("bestandsnaam")

Wel het bestand opslaan.

 

[edmoor]

Zet deze in een VBA module:

Function DocFolder()
    DocFolder = Application.ActiveWorkbook.Path
End Function

In een cel zet je dan: =DocFolder()

 

[alphamax]

Ik heb geen ervaring met dropbox, maar mocht bovenstaanden niet werken.Hier weten ze te achterhalen waar de dropbox zich bevindt met VBA code.

 

[edmoor]

Doorbordurend op HSV:
=LINKS(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))-1)

 

[HSV]

Doorbordurend op HSV:

Ik wilde eerst maar eens afwachten of het wel werkte voor de dropbox. :d :thumb:

 

[edmoor]

Uiteraard werkt dit alleen voor een document dat vanaf de lokale Dropbox folder is geopend.

 

[Robert Smidt]

Ik heb =LINKS(CEL("bestandsnaam");VIND.SPEC("[";CEL("bestandsnaam"))-1) geplaatst in cel 2a en het werkt prima. Ik ga nu nog even kijken of het werkt wanneer ik het bestand in een andere map in dropbox ga opslaan.

 

[alphamax]

Voor de liefhebbers van Dropbox, VBA, jscript, javascript en json, een UDF.

[SIZE=1]Option Explicit

Public Function DropboxInfo(strBusiness_Personal As String, strHost_Path As String) As String
'https://www.dropbox.com/help/4584
'strBusiness_Personal = "business" or "personal"
'strHost_Path = "host" or "path"
    Dim strValue1 As String
    Dim strValue2 As String
    On Error Resume Next
    DropboxInfo = "Error"
    With CreateObject("ScriptControl")
        .Language = "JScript"
        .AddCode "Object.prototype.info=function(parent,child){return this[parent][child]};"    'am_2015
        strValue1 = .Eval("(" + CreateObject("Scripting.FileSystemObject").OpenTextFile(Environ("APPDATA") & "\Dropbox\info.json", 1).readall + ")").info(strBusiness_Personal, strHost_Path)
        strValue2 = .Eval("(" + CreateObject("Scripting.FileSystemObject").OpenTextFile(Environ("LOCALAPPDATA") & "\Dropbox\info.json", 1).readall + ")").info(strBusiness_Personal, strHost_Path)
        If strValue1 <> vbNullString Then
            DropboxInfo = strValue1
        End If
        If strValue2 <> vbNullString Then
            DropboxInfo = strValue2
        End If
    End With
End Function[/SIZE]