Pfad zu Onedrive

.. das wohl mächtigste Werkzeug in Bill Gates' Büro-Sippe. Ob reine Formeln, PowerQuery oder VBA. Hier bleiben kaum Wünsche unerfüllt.
Benutzeravatar
thowe
Beiträge: 230
Registriert: 12. Sep 2022, 16:57
Hat sich bedankt: 109 Mal
Danksagung erhalten: 79 Mal
Kontaktdaten:

Pfad zu Onedrive

#1

Beitrag von thowe »

Hallöchen,

wir hatten bereits hier einmal eine Lösung ob die ExcelArbeitsmappe lokal gespeichert ist oder eben nicht.

Ich kannmir nicht mehr genau erinnern, ob wir in enem anderen Thread auch schon eine Lösung erbastelt hatten, um einen für Windows lesbaren Pfad zum OneDrive Ordner zu erhalten.

Hier eine Lösung:

Code: Alles auswählen

Function OneDrivePathFixer(strFullPath As String) As String
    Dim strOnedrivePart As String
    
    strFullPath = VBA.Replace(strFullPath, "/", "\")
    strOnedrivePart = "https:\\d.docs.live.net\"
    
    If InStr(strFullPath, strOnedrivePart) Then
        strFullPath = VBA.Replace(strFullPath, strOnedrivePart, "")
        strFullPath = Right(strFullPath, Len(strFullPath) - InStr(1, strFullPath, "\"))
        strFullPath = Environ("OneDrive") & "\" & strFullPath
    End If
    
    OneDrivePathFixer = strFullPath
    
End Function
Diese Funktion kann einfach aufgerufen werden. Zum Beispiel im Direktfenster, [STRG] + [G]

?OneDrivePathFixer(ThisWorkbook.FullName)

Viel Spaß damit
Folgende Benutzer bedankten sich beim Autor thowe für den Beitrag:
d'r Bastler

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste