Проблема распознавания файлов в функции Mac Excel 2011 VBA Dir()
Я пытаюсь создать макрос, который позволит мне импортировать данные из всех файлов, заканчивающихся на ".xlsx" в указанной папке, в одну электронную таблицу. Я в основном понял это, но есть повторяющаяся проблема, которая требует ручного обхода, пока я не найду решение.
Исходные файлы.xlsx содержат стандартный шаблон для ввода данных, заполняются и отправляются мне другими пользователями. Я загружаю эти файлы в указанную папку на моем компьютере. Однако функция Dir не распознает ни один из файлов.xlsx в указанной папке, если я не открою файл в Excel и не нажму "Сохранить". Как только я это сделаю, функция Dir работает отлично, и все файлы.xlsx перечислены в окне Immediate. Я был бы признателен за понимание того, почему это происходит, и если есть какой-либо способ исправить код, чтобы он распознавал файлы без открытия и сохранения.
Sub Test()
Dim strPath As String
Dim strFile As String
strPath = ActiveWorkbook.Path & Application.PathSeparator & "ReferenceFolderName" & Application.PathSeparator
strFile = Dir(strPath, MacID("XLSX"))
Do While Len(strFile) > 0
strFile = Dir
Debug.Print strFile
Loop
End Sub