VBA Makro funktioniert mit Speicherpfad C:\, aber nicht mit Pfad...

Hallo zusammen,


ich habe ein Makro das alle Dateien mit allen Arbeitsblättern in eine neue Datei kopiert. Dieses Makro funktioniert einwandfrei, solange der Ordner, mit den darin zu übertragenden Dateien, sich in einem C:\ Laufwerk befindet.

Sobald der Ordner aber in SharePoint gespeichert ist, funktioniert das Makro leider nicht mehr und ich habe keine Ahnung wieso, weshalb warum.

Danke schon mal im Voraus


Sub Collect_All_WBSheets
Dim oTargetBook As Object
Dim oSourceBook As Object
Dim sPfad As String
Dim sDatei As String
Dim i As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False


Set oTargetBook = ActiveWorkbook

'sPfad = "C:\Users\n313000\OneDrive - XY\Originaldateien\" mit diesem Pfad funktioniert das Makro
sPfad = "https://XY.sharepoint.com/teams/Originaldateien/" mit diesem Pfad funktioniert das Makro nicht


sDatei = DirCStrsPfad & "*.xl*" hier wird Laufzeitfehler '52': Dateiname oder-nummer falsch angezeigt

Do While sDatei <> ""

Set oSourceBook = Workbooks.OpensPfad & sDatei, False, True

For i = Application.Worksheets.Count To 1 Step -1
ThisWorkbook.Worksheetsi.Copy Before:=Workbooks"Mappe1".Worksheets1
oSourceBook.Sheetsi.Copy after:=oTargetBook.SheetsoTargetBook.Sheets.Count
Next i

oSourceBook.Sheets1.Copy after:=oTargetBook.SheetsoTargetBook.Sheets.Count

On Error Resume Next

If Err.Number <> 0 Then
Err.Number = 0
Err.Clear
End If
On Error GoTo 0

oSourceBook.Close False

sDatei = Dir
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "Fertig!", vbInformation + vbOKOnly, "Hinweis!"

Set oTargetBook = Nothing
Set oSourceBook = Nothing
End Sub