Я пытаюсь объединить несколько файлов Excel в один. Для этого я использовал и модифицировал старый ответ, который я нашел здесь, но у меня возникли проблемы при запуске в Excel 2016 для Mac (в Excel 2011 для Mac все работало нормально, с некоторыми изменениями).
В Excel 2016 (Mac) следующий код проходит цикл один раз, после чего печатает имя первого файла в выбранной папке, но затем останавливается.
В Excel 2011 (Mac) правильно печатаются имена всех файлов в выбранной папке.
Sub wat()
Dim FilesFolder As String, strFile As String
'mac excel 2011
'FilesFolder = MacScript("(choose folder with prompt ""dis"") as string")
'mac excel 2016
FilesFolder = MacScript("return posix path of (choose folder with prompt ""dat"") as string")
If FilesFolder = "" Then Exit Sub
strFile = Dir(FilesFolder)
Do While Len(strFile) > 0
Debug.Print "1. " & strFile
strFile = Dir
Loop
MsgBox "ded"
End Sub
Итак, я новичок в этом, но мне кажется, что strFile = Dir
работает неправильно.
Я просмотрел страницу Рона деБрюина: Прокрутка файлов в папке на Mac (Dir для Mac Excel) но, честно говоря, это было слишком сложно для меня, чтобы понять и изменить в соответствии со своими потребностями.
Любая помощь приветствуется, и спасибо за терпение!