Как отключить проверку книги на совместимость

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отключить проверку книги на совместимость (Макросы/Sub)

Vladimir1753

Дата: Среда, 18.01.2017, 15:44 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Установлено: Microsoft® Office Excel® 2007 (12.0.6683.5002) SP3 MSO (12.0.6683.5000)

Подскажите пожалуйста, как в Макросе VB при сохранении из Office Excel 2007 в формат Microsoft Excel 97-2003 отключить проверку книги на совместимость. Пробовал в самом Excel команду «Подготовить» и затем кнопку «Проверка совместимости...». снять флажок «Выполнить проверку совместимости при сохранении книги», но при выполнении макроса экспорта всё равно сначала появляется окно:

«Предупреждение о конфиденциальной информации: документ содержит макросы, элементы управления ActiveX, данные пакета расширения XML или веб-компоненты. Они могут включать личные сведения, которые нельзя удалить с помощью инспектора документов.», (нажимаю «ОК»), затем появляется окно:

«Несущественная потеря точности. Некоторые ячейки или стили в этой книге одержат форматирование, не поддерживаемое выбранным форматом файла. Эти форматы будут преобразованы в наиболее близкий из имеющихся форматов.» и флажок «Выполнить проверку совместимости при сохранена книги.» снова отмечен галочкой.
Приходится снова нажимать кнопку «Продолжить».

Я понимаю, что два раза нажать на кнопки не тяжело, но когда это надо сделать много раз подряд...

‘ в "E:\1.xls" вместо «1» – дата, время и т.д., но не это суть
В макросе часть кода для сохранения и закрытия написан так:

ActiveWorkbook.SaveAs Filename:= "E:\1.xls", FileFormat:=xlExcel8, Password _
:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

Может быть есть дополнительные команды или операторы?
ActiveWorkbook.SaveAs |
SaveAs([Filename], [FileFormal{, [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AccessMode As
XISaveAsAccessMode = xINoChange], [ConflictResolution], [AddToMru], [TextCodepage], [TextVisualLayout[, [Local\)

Изначальный файл отчета Windows("Акт_снятия_остатков_шаблон.xlsx").Activate формируется автоматически программой стороннего разработчика и изменять его нельзя, а для дальнейшей работы файлы нужны только с расширением *.xls - формат Microsoft Excel 97-2003 и с ними работают другие люди. Я лишь промежуточное звено в этой цепочке.

Для обучения VB пользуюсь книгой Андрея Гарнаева: Гарнаев А. Ю. MS Excel 2002: разработка приложений. — СПб.: БХВ-Петербург, 2003 г. В ней 768 страниц и много подробно написано, очень помогает. Но к сожалению тогда еще не было Excel 2007.
- - -
Я не волшебник, я только учусь.
Заранее благодарю, всех кто поможет.
С уважением, Владимир.

Ответить

СообщениеУстановлено: Microsoft® Office Excel® 2007 (12.0.6683.5002) SP3 MSO (12.0.6683.5000)

Подскажите пожалуйста, как в Макросе VB при сохранении из Office Excel 2007 в формат Microsoft Excel 97-2003 отключить проверку книги на совместимость. Пробовал в самом Excel команду «Подготовить» и затем кнопку «Проверка совместимости...». снять флажок «Выполнить проверку совместимости при сохранении книги», но при выполнении макроса экспорта всё равно сначала появляется окно:

«Предупреждение о конфиденциальной информации: документ содержит макросы, элементы управления ActiveX, данные пакета расширения XML или веб-компоненты. Они могут включать личные сведения, которые нельзя удалить с помощью инспектора документов.», (нажимаю «ОК»), затем появляется окно:

«Несущественная потеря точности. Некоторые ячейки или стили в этой книге одержат форматирование, не поддерживаемое выбранным форматом файла. Эти форматы будут преобразованы в наиболее близкий из имеющихся форматов.» и флажок «Выполнить проверку совместимости при сохранена книги.» снова отмечен галочкой.
Приходится снова нажимать кнопку «Продолжить».

Я понимаю, что два раза нажать на кнопки не тяжело, но когда это надо сделать много раз подряд...

‘ в "E:\1.xls" вместо «1» – дата, время и т.д., но не это суть
В макросе часть кода для сохранения и закрытия написан так:

ActiveWorkbook.SaveAs Filename:= "E:\1.xls", FileFormat:=xlExcel8, Password _
:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

Может быть есть дополнительные команды или операторы?
ActiveWorkbook.SaveAs |
SaveAs([Filename], [FileFormal{, [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AccessMode As
XISaveAsAccessMode = xINoChange], [ConflictResolution], [AddToMru], [TextCodepage], [TextVisualLayout[, [Local\)

Изначальный файл отчета Windows("Акт_снятия_остатков_шаблон.xlsx").Activate формируется автоматически программой стороннего разработчика и изменять его нельзя, а для дальнейшей работы файлы нужны только с расширением *.xls - формат Microsoft Excel 97-2003 и с ними работают другие люди. Я лишь промежуточное звено в этой цепочке.

Для обучения VB пользуюсь книгой Андрея Гарнаева: Гарнаев А. Ю. MS Excel 2002: разработка приложений. — СПб.: БХВ-Петербург, 2003 г. В ней 768 страниц и много подробно написано, очень помогает. Но к сожалению тогда еще не было Excel 2007.
- - -
Я не волшебник, я только учусь.
Заранее благодарю, всех кто поможет.
С уважением, Владимир.

Автор - Vladimir1753
Дата добавления - 18.01.2017 в 15:44

Manyasha

Дата: Среда, 18.01.2017, 15:59 | Сообщение № 2