Как извлечь данные из нескольких файлов Excel по сети в один файл Excel с помощью VBA?

Question

Я пытаюсь объединить данные из трех файлов Excel из сети в один файл, который также находится в сети.

Я новичок в программировании на VBA, пробовал некоторые решения изИнтернет, но они не работают с файлом в сети.

Private Const sPath As String = "https:\\12345\al\home\ALSC\Shared Documents\12 - SIOP\EU2\Test folder" 'CHANGE THIS TO YOUR DIRECTORY PATH

Sub LoopThroughFiles()

    Dim sFile As String 'File Name
    Dim sExt As String 'File extension you wish to open

    sExt = "xlsx" 'Change this if extension is different

    'loop through each file name and open it if the extension is correct
    sFile = Dir(sPath)
    Do Until sFile = ""
        If Right(sFile, 4) = sExt Then GetInfo sFile
        sFile = Dir
    Loop

End Sub

Код работает, когда я использую локальное назначение файла, но не когда я пытаюсь с сетевым расположением