Получить Excel путь к файлу из папок и подпапок Sharepoint с помощью VBA

Question

Привет всем, я хотел бы спросить кое-что: Как я могу получить все файлы Excel из папки sharepoint (также получить файлы Excel из подпапок этой папки)? Я использовал этот код, он отлично работает для локального пути, но когда я ввожу URL-адрес sharepoint, он не работает, я ценю вашу помощь:

Sub extraerRuta()
Dim xIsSubfolders As Boolean
xIsSubfolders = True
'Specify File Path
spath = "https://integralsa-my.sharepoint.com/:f:/r/personal/jalastra_integral_com_co/Documents/Archivos%20de%20chat%20de%20Microsoft%20Teams?csf=1&web=1&e=DJ8lSz"
spath2 = "C:\Users\1017249739\Desktop\JALG\JALGINT\Instrumentación\DOCUMENTACION"
xFolderName = spath


Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim xFile2 As Object
Dim rowIndex As Long
Dim pathf()
Dim X As Single
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.getfolder(xFolderName)


X = 0
ReDim Preserve pathf(X)
For Each xFile In xFolder.Files
    If xFile.Name Like "*.xlsx*" Then
        Debug.Print xFile.Path
        ReDim Preserve pathf(0 To X)
        pathf(X) = xFile.Path
        X = X + 1
    Else

    End If

        Next xFile
  For Each xSubFolder In xFolder.subfolders
    Debug.Print xSubFolder
        Set xSubFolder2 = xFileSystemObject.getfolder(xSubFolder)

        For Each xFile2 In xSubFolder2.Files
            If xFile2.Name Like "*.xlsx*" Then
                Debug.Print xFile2.Path
                ReDim Preserve pathf(0 To X)
                pathf(X) = xFile2.Path
                X = X + 1
            Else

                End If
        Next xFile2
  Next xSubFolder



Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

с spath не работает, но с spath2 он работает.