Есть макрос, который чистит свойства файлов xls и xlsx. [vba]
Код
Sub Clear() Application.ScreenUpdating = False ActiveWorkbook.RemoveDocumentInformation xlRDIAll ' save as With Application.FileDialog(msoFileDialogSaveAs) If .Show Then .Execute End With Set fd = Nothing Application.ScreenUpdating = True End Sub
[/vba]
При запуске данного макроса и сохранении файлов в форматах xlt и xltx, структура по умолчанию остается в формате xlt, даже если файл с расширением xltx. Помогите плз исправить макрос, чтобы структура соответствовала заданной при сохранении. [moder]Оформляйте коды тегами (кнопка #)[/moder]
Добрый день!
Есть макрос, который чистит свойства файлов xls и xlsx. [vba]
Код
Sub Clear() Application.ScreenUpdating = False ActiveWorkbook.RemoveDocumentInformation xlRDIAll ' save as With Application.FileDialog(msoFileDialogSaveAs) If .Show Then .Execute End With Set fd = Nothing Application.ScreenUpdating = True End Sub
[/vba]
При запуске данного макроса и сохранении файлов в форматах xlt и xltx, структура по умолчанию остается в формате xlt, даже если файл с расширением xltx. Помогите плз исправить макрос, чтобы структура соответствовала заданной при сохранении. [moder]Оформляйте коды тегами (кнопка #)[/moder]Rash
Сообщение отредактировал Pelena - Вторник, 13.10.2015, 15:49
Добрый вечер! Действительно, в Office 15, при выборе формата *.xltx, метод .Execute диалога FileDialog(msoFileDialogSaveAs), почему-то, сохраняет в формате Biff8, вместо Biff12. Как вариант, можно обойти так: [vba]
Код
With Application.FileDialog(msoFileDialogSaveAs) If .Show Then If .FilterIndex = 8 Then ActiveWorkbook.SaveAs .InitialFileName & ".xltx", xlOpenXMLTemplate Else .Execute End If End If End With
[/vba]
Добрый вечер! Действительно, в Office 15, при выборе формата *.xltx, метод .Execute диалога FileDialog(msoFileDialogSaveAs), почему-то, сохраняет в формате Biff8, вместо Biff12. Как вариант, можно обойти так: [vba]
Код
With Application.FileDialog(msoFileDialogSaveAs) If .Show Then If .FilterIndex = 8 Then ActiveWorkbook.SaveAs .InitialFileName & ".xltx", xlOpenXMLTemplate Else .Execute End If End If End With
Добрый день! 1. Откройте ваши вложенные картинки, что-нибудь видите? 2. Какая у вас версия офиса, в которой возникает ошибка? (2013, как и заявлено?) 3. В диалоговом окне SaveAs откройте комбобокс "Тип файла" и выложите его скриншот (чтоб на нем был виден ваш список типов файлов).
Добрый день! 1. Откройте ваши вложенные картинки, что-нибудь видите? 2. Какая у вас версия офиса, в которой возникает ошибка? (2013, как и заявлено?) 3. В диалоговом окне SaveAs откройте комбобокс "Тип файла" и выложите его скриншот (чтоб на нем был виден ваш список типов файлов).KSV