Существующий макрос VBA из Windows 7 / Excel 2010 не может сохранить .xlsm для некоторых пользователей, обновленных до Win10 / Excel 365 - PullRequest
Новая
       82

Существующий макрос VBA из Windows 7 / Excel 2010 не может сохранить .xlsm для некоторых пользователей, обновленных до Win10 / Excel 365

0 голосов
/ 06 августа 2020

Есть много вопросов, подобных этому, по inte rnet, но ни один из них не привел меня к решению. Надеюсь, здесь я найду какое-то облегчение.

У меня есть сообщество пользователей, которые в настоящее время проходят миграцию с Windows 7 на Windows 10, а также миграцию с Office 2010 на Office 365. В результате этой миграции НЕКОТОРЫЕ (не все) мои пользователи начали испытывать проблемы с макросом, который нормально работал в Win7 / Excel 2010, но теперь выдает ошибку в Win10 / Excel365. Указанная строка кода c, которая не работает, является оператором application.saveas : 

ActiveWorkbook.SaveAs FileName:=myFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled

Я протестировал и / или проверил следующее:

  • Что полное имя пути правильное, ie в нем нет неожиданных символов, он указывает на допустимое сетевое расположение, нет ошибок в написании и т. Д. c. Это точно не проблема. Кроме того, используемый путь представляет собой полный сетевой путь (с использованием самого имени компьютера, а не буквенного диска). И пользователи, у которых возникли проблемы, не получают облегчения, когда я переключаю путь на C: \ Users \ filename

  • Заменяя FileFormat:=xlOpenXMLWorkbookMacroEnabled на FileFormat:=52 ;; Без кубика

  • Замена всей строки кода для правильно заполненного диалогового окна SaveAs. Та же ошибка возникает при выполнении команды Execute. Код ниже: 

    With Application.FileDialog(msoFileDialogSaveAs)
     .AllowMultiSelect = False
     .FilterIndex = 2  '2 = xlsm
     .InitialFileName = myFileName
     .InitialView = msoFileDialogViewDetails
     If .Show = -1 Then strFolder = .SelectedItems(1) Else Exit Sub
     .Execute ''''Run time error 10004005 "Document not saved" error happens here
 End With

  • Проверены надстройки пользователя; ничего интересного здесь не обнаружено. У них были другие надстройки, чем у меня, но я попросил их отключить ВСЕ надстройки, и это все еще не работало

  • Пройдено через весь центр доверия пользователя и выстроено как лучше Я мог бы со своим (моя машина работает нормально). Мы нашли одну настройку, которую, хотя и стоило изменить, но она не повлияла

  • Я уверен, что пользователи, которые столкнулись с этой проблемой до сих пор, (как и я) получили полностью новые компьютеры с новой версией OS / Office, установленной чисто. Поэтому я исключил это как причину.

  • Я успешно выполнил макрос с выключенным и включенным ускорением графики, тем самым исключив эту проблему (это вызывало другие проблемы Excel, когда Я сначала обновил).

Любые мысли сообщества о том, что еще я мог бы рассмотреть или попробовать, будут оценены, поскольку я совершенно не понимаю, что попробовать дальше.

Спасибо!

...