Ошибка при запуске кода VBA для импорта нескольких рабочих книг в одну рабочую книгу

Question

У меня есть папка с именем «macro», содержащая около 25 книг Excel.Все рабочие книги отформатированы одинаково, единственное отличие - диапазоны дат.

Я хотел бы реализовать код VBA, который объединит все эти файлы в одну рабочую книгу.

Когда я пытаюсь запустить это в папке, расположенной в общей сети, я получаю сообщение об ошибке, что не удается найти конкретный файл Excel с именем «Информация о проверке заработной платы», который либо был перемещен, либо удален.

Странная часть заключается в том, что нигде в коде я не ищу этот файл, и файл не находится в папке в первой, поэтому я не уверен, почему VBA ищет этот файл ввсе.

Вот мой код:

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim wkbDest As Workbook
    Dim wkbSource As Workbook
    Set wkbDest = ThisWorkbook
    Dim LastRow As Long
    Const strPath As String = "\\data02\Finance\Dept01\01 FILES\2019 Files\Paydate 4.5.19\EOM DATA\Individual Grouping\Macro\"
    ChDir strPath
    strExtension = Dir("*.xls*")
    Do While strExtension <> ""
        Set wkbSource = Workbooks.Open(strPath & strExtension)
        With wkbSource
            LastRow = .Sheets("ExportSheet").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            .Sheets("ExportSheet").Range("A3:I" & LastRow).Copy wkbDest.Sheets("ExportSheet").Cells(Rows.Count, "A").End(xlUp).Offset(0, 0)
            .Close savechanges:=False
        End With
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

Есть идеи, почему я получаю эту ошибку?

Это почти как если бы я искал в неправильном каталоге, ноЯ знаю, что я не ...