При сохранении файлы появляется окошко с ошибкой

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » При сохранении файлы появляется окошко с ошибкой (Макросы/Sub)

AVI

Дата: Среда, 05.07.2017, 12:17 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

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

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

Excel 2016

Сохраняю лист в файл с помощью кода.
[vba]

Код

Sub Лист_в_файл()
    Application.ScreenUpdating = False
    Dim List$, iPath$, newName$
    With Application.FileDialog(msoFileDialogFolderPicker)
      .ButtonName = "Выбрать"
      .Title = "Выберите и откройте папку для сохранения файлов."
      .InitialFileName = iPath
      If .Show = False Then Exit Sub
      iPath = .SelectedItems(1) & "\"
    End With
    Application.ScreenUpdating = False
    List = ActiveSheet.Name
    newName = Sheets(List).Cells(1, 1)
    Sheets(List).Copy
    Sheets(List).UsedRange.Value = Sheets(List).UsedRange.Value
    Sheets(List).DrawingObjects.Delete
    Sheets(List).Buttons.Delete
    Sheets(List).Columns("a:e").Delete
    Sheets(List).Columns("bc:br").Delete
    ActiveWorkbook.SaveAs iPath & newName '& ".xls"
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    End Sub

[/vba]
Все было нормально, но вдруг стала появляться окошко с ошибкой.
"Следующие компоненты невозможно сохранить в книге без поддержки макросов..."
Как это окошко убрать? Дело в том, что в этом же файлы настроен такой макросы и на другие страницы и там все сохраняется без проблем.

К сообщению приложен файл: ______.xlsm (39.6 Kb)

Сообщение отредактировал AVI - Среда, 05.07.2017, 12:29

Ответить

_Boroda_

Дата: Среда, 05.07.2017, 12:22 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

У Вас точно в этой строке

Цитата AVI, 05.07.2017 в 12:17, в сообщении № 1 ()

ActiveWorkbook.SaveAs iPath & newName '& ".xls"

написано xls, а не xlsx?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

AVI

Дата: Среда, 05.07.2017, 12:24 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

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

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

Excel 2016

_Boroda_, Скопировал все как было в коде. Ничего не менял

Ответить

AVI

Дата: Среда, 05.07.2017, 12:30 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

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

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

Excel 2016

Прикрепил файл

Ответить

_Boroda_

Дата: Среда, 05.07.2017, 12:31 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Очень странно.
Судя по всему, в модуле этого копируемого листа сидит макрос. Или уберите его оттуда, или, если он там действительно нужен, то выше сохранения напишите
[vba]

Код

Application.DisplayAlerts=0

[/vba]а ниже[vba]

Код

Application.DisplayAlerts=1

[/vba]

=================

Цитата AVI, 05.07.2017 в 12:30, в сообщении № 4 ()

Прикрепил файл

Ну точно. ПКМ на ярлык листа - Исходный код - убейте там все
Вот это Вам точно не нужно
[vba]

Код

Private Sub HTMLText1_Click()

End Sub

[/vba]