VBA Workbooks.Открытые сбои Excel

Question

Хорошо, вот в чем проблема, мне нужно открыть большую рабочую книгу из другой большой рабочей книги, она до сих пор работала нормально, и я не менял ее, вот она внезапно начала падать, когда полный путь включенконкретное местоположение.

адрес в порядке, пароль в порядке, но затем, когда я добираюсь до этой строки:

Workbooks.Open FileName: = PROJECT_DETAILS_WB_FULL_PATH, UpdateLinks: = True, Password: =PROJECT_DETAILS_DECRIPTION_KEY, ReadOnly: = False 'здесь проблема

и Excel полностью аварийно завершает работу

-Даже при пошаговом запуске, так что метод ожидания не так
-Я имеюта же проблема с офисами 2013 и 365, поэтому проблема с офисной версией
-также пробовала на разных компьютерах и проблема сохраняется.
-Заменил целевой файл на тот, который работает на 100% и до сих пор.
-ifя открываю файл вручную, он работает (есть проверка на наличие уже открытого файла)

Я предполагаю, что это проблема с разрешением папки или файла на target path, если кто-нибудь знает, что я должен проверить, было бы полезно

Answer 1

Хорошо, парни и девушки, спасибо за вашу помощь, после того, как я весь день пробирался вокруг, я обнаружил проблему, в итоге, файл "A" пытался противопоставить файл "B", и Excel потерпел крах, оказалось, что файл "B" имеетссылки на другой файл, файл "C", который не обновлялся, эти ссылки относятся к именованным диапазонам, которых не было в более старой версии файла "C".Когда файл «B» пытался проверить (до «UpdateLinks: = True») Excel произошел сбой, обновление файла «C» до последней версии работало.Обратите внимание, что при запросе на обновление ссылок вручную Excel не вылетает независимо от того, что вы выбрали

Answer 2

Попробуйте следующий код.

Sub openwb()
Dim wkbk As Workbook
Dim NewFile As Variant

NewFile = Application.GetOpenFilename("microsoft excel files (*.xlsm*), *.xlsm*")

If NewFile <> False Then
Set wkbk = Workbooks.Open(NewFile)
End If
End Sub