Office: Dateipfad ergibt d.docs.live

Hallo zusammen
Ich habe in meinen VBA's in Excel's immer mit thisworkbooks.path gearbeitet um den Dateipfad aus zu lesen.
Bei meinem Windows 10, 11 und Excel 365 funktioniert das wunderbar.
Ich synchronisere die Dateien über Onedrive (Lokal gespeichert).
nun musste ich meinen PC erneuern und nur bei diesem PC (Win11Pro, Onedrive, Excel 365) liest es den Dateipfad als "Sign in to your Microsoft account.... aus.
daher gehe ich davon aus, dass in diesem Excel etwas falsch eingestellt ist oder ein Haken fehlt... Kann mir jemand helfen, wo ich suchen muss?
Vielen Dank für eure Unterstützung !

 

Hi,

dein Link sieht bei mir so aus:



Wie wäre es, wenn du dem dezenten Hinweis folgen und dich an deinem Microsoft-Account anmelden würdest?

 

Danke für die Info
Ich bin offiziell registriert und angemeldet.
Sowohl im Office als auch im onedrive bin ich mit dem selben Konto angemeldet

 

Dann weiß ich auch nicht weiter...

 

Kleines Update:

Onedrive angemeldet, Sync läuft
Office365 angemeldet, läuft

Solange Onedrive läuft, habe ich den falschen Bezug
("d.docs.live.net/...")
Sobald ich onedrive stoppe (Synchronisierung anhalten - 2 Stunden"), nimmt es den Lokalen
(D:\1 Schreinerei\OneDrive\Ordner\Datei...)
Lasse ich Onedrive wieder laufen, geht es wieder zum d.docs....

OneDrive-Version: Build 24.010.0114.0001 (64-Bit)

Hilft das eventuell weiter?

 

Moin!
Was ergibt jeweils(!) Environ("Onedrive")?

Gruß Ralf

 

Halo Ralf
Dies ergibt mir den korrekten, lokalen Pfad aus...

Gruss Martin

 

Ich hatte gehofft, dass mein Wink reicht.
Nimm folglich statt ThisWorkbook.Path Environ("Onedrive") & Unterordner & Dateiname
Die Synchronisierung nimmt Onedrive selbständig vor.

 

Es laufen aber nicht an allen Orten die Rechner über Onedrive.
Mein Kollege braucht gewisse Programm auch und nutzt diese über einen VPN-Server.
Zieht das dann das nächste Problem mit sich oder erkennt es das?

 

environ() hat ja den großen Vorteil, nicht gleich einen Fehler zu produzieren.
?Environ("Twodrive") liefert einen Leerstring
Mal frei nach Schnauze:

Code:

If Len(Environ("Onedrive")) Then
   Pfad = Environ("Onedrive") & "\Ordner\Datei..."
Else
   Pfad = ActiveWorkbook.Path & "\Ordner\Datei..."
End If

 

Danke Ralf

Guter Ansatz, werde das mal anschauen.

Gruss Martin

 

Zur info…
Redirecting

 

Hallo zusammen
Steve, danke für deinen Hinweis, obwohl ich nicht verstehe, was das zur Sache tut ;-)

Ralf, der Ansatz war gut, aber es zeigt nur den Pfad bis zum Onedrive.
Die nachfolgenden Ordner müsste ich so als statisch definieren.
Ich habe da aber verschiedene Programme und Verschiedene Ordner. Alles fix zu definieren will und kann ich nicht...

 

Take a look :)
2.3: Crossposting - ist grundsätzlich erlaubt, aber nur wenn in dem Beitrag ein eindeutiger Verweis zu dem Thema im anderen Forum vorhanden ist.

Damit verhindert man dass es uU zu Doppelarbeit kommt. Wenn du in mehreren Foren postest, ohne das mitzuteilen, und bekommst zB die gleichen Antworten, dann hat mindestens ein Helfer umsonst gearbeitet.

 

Du kommst scheibchenweise mit neuen Infos rüber …
Bevor gleich kommt, dass Du einen Mac hast, nehme ich lieber gleich Application.PathSeparator statt den Backslash (Windows).
Es geht hier nur um den If-Teil meines obigen Codes.
Ich setze den OneDrive-Link als Konstante.
Im real life füllst Du natürlich eine Variable mittels
ActiveWorkbook.FullName

Code:

Sub Full_Name()
Dim erster_Ordner$, Struktur$, Ergebnis$
Const Pfad$ = "https://d.docs.live.net/1111xxxx2222/Forum/Office-Hilfe/Textverketten.xlsx"
erster_Ordner = Split(Pfad, "/")(4)
Struktur = Replace(Mid(Pfad, InStr(Pfad, erster_Ordner), 999), "/", Application.PathSeparator)
Ergebnis = Environ("Onedrive") & Application.PathSeparator & Struktur
End Sub