Проблема распознавания файлов в функции 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

0 ответов

Другие вопросы по тегам