Метод открытых книг работает через раз

Question

Я использую метод Workbooks.Open в Excel VBA на Mac для копирования данных из строк на одном листе в строки на другом.Мой код был написан несколько лет назад и работал каждый раз до Office 365.Макрос очень длинный, поэтому я не буду публиковать все это здесь.Код, с которым у меня, похоже, возникают проблемы:

FileToOpen = Application.GetOpenFilename 
Workbooks.Open(FileToOpen)

Код работает каждый раз, когда я запускаю макрос.При первом запуске файл не открывается.В следующий раз это так.Каждый раз, когда я запускаю его, это работает.

Я установил часы на FileToOpen и получаю один и тот же результат каждый раз при отладке.

Есть идеи?

Answer 1

Вы вызываете процедуру без значения в FileToOpen, во второй раз fileToOpen имеет значение

'1st  FileToOpen = ""
FileToOpen = Application.GetOpenFilename Workbooks.Open(FileToOpen)

'2-й раз, когда открываемый файл имеет значение, вот почему он работает! Решение:

dim FileToOpenPath as string 

FileToOpenPath = Application.GetOpenFilename()

FileToOpen =  Workbooks.Open(FileToOpenPath)