VBA Dateipfad onedrive teams
12.03.2024 11:28:53
salvac
ich habe folgenden VBA Code, um sequentiell Exceldateien in einem Ordner zu öffnen und sie danach zu bearbeiten.
Dim quelleDatei As Workbook
Set quelleDatei = ActiveWorkbook
Dim zielOrdnerPfad As String
zielOrdnerPfad = quelleDatei.Sheets("Update").Range("L12").Value
'Durchsuchen aller Exceldateien im Ordner
Dim datei As String
datei = Dir(zielOrdnerPfad & "\*.xlsm")
Do While datei > ""
Dim zielDatei As Workbook
Set zielDatei = Workbooks.Open(zielOrdnerPfad & "\" & datei)
....
....
Datei = Dir
Loop
Der Dateipfad des Ordners wird in der Quelldatei in L12 hinterlegt. Es funktioniert einwandfrei wenn ich einen Dateipfad von unserem internen Laufwerk nehme.
Ich möchte jedoch nun das Gleiche mit einem OneDrive Ordner umsetzen, der bei uns in Teams abgespeichert ist. Gibt es da die Möglichkeit oder einen geschickten Umweg den Dateipfad da zu hinterlegen und die entsprechenden Exceldateien zu öffnen?
Vielen Dank!