Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/При сохранении файлы появляется окошко с ошибкой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При сохранении файлы появляется окошко с ошибкой (Макросы/Sub)
При сохранении файлы появляется окошко с ошибкой
AVI Дата: Среда, 05.07.2017, 12:17 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 222
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
Сохраняю лист в файл с помощью кода.
[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(40Kb)


Сообщение отредактировал AVI - Среда, 05.07.2017, 12:29
 
Ответить
СообщениеСохраняю лист в файл с помощью кода.
[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]
Все было нормально, но вдруг стала появляться окошко с ошибкой.
"Следующие компоненты невозможно сохранить в книге без поддержки макросов..."
Как это окошко убрать? Дело в том, что в этом же файлы настроен такой макросы и на другие страницы и там все сохраняется без проблем.

Автор - AVI
Дата добавления - 05.07.2017 в 12:17
_Boroda_ Дата: Среда, 05.07.2017, 12:22 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11297
Репутация: 4661 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
У Вас точно в этой строке
 ActiveWorkbook.SaveAs iPath & newName '& ".xls"
написано xls, а не xlsx?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ Вас точно в этой строке
 ActiveWorkbook.SaveAs iPath & newName '& ".xls"
написано xls, а не xlsx?

Автор - _Boroda_
Дата добавления - 05.07.2017 в 12:22
AVI Дата: Среда, 05.07.2017, 12:24 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 222
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Скопировал все как было в коде. Ничего не менял
 
Ответить
Сообщение_Boroda_, Скопировал все как было в коде. Ничего не менял

Автор - AVI
Дата добавления - 05.07.2017 в 12:24
AVI Дата: Среда, 05.07.2017, 12:30 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 222
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
Прикрепил файл
 
Ответить
СообщениеПрикрепил файл

Автор - AVI
Дата добавления - 05.07.2017 в 12:30
_Boroda_ Дата: Среда, 05.07.2017, 12:31 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11297
Репутация: 4661 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Очень странно.
Судя по всему, в модуле этого копируемого листа сидит макрос. Или уберите его оттуда, или, если он там действительно нужен, то выше сохранения напишите
[vba]
Код
Application.DisplayAlerts=0
[/vba]а ниже[vba]
Код
Application.DisplayAlerts=1
[/vba]

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

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

End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеОчень странно.
Судя по всему, в модуле этого копируемого листа сидит макрос. Или уберите его оттуда, или, если он там действительно нужен, то выше сохранения напишите
[vba]
Код
Application.DisplayAlerts=0
[/vba]а ниже[vba]
Код
Application.DisplayAlerts=1
[/vba]

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

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

End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 05.07.2017 в 12:31
AVI Дата: Среда, 05.07.2017, 12:37 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 222
Репутация: 6 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Спасибо большое!!
Интересно что и откуда.


Сообщение отредактировал AVI - Среда, 05.07.2017, 12:38
 
Ответить
Сообщение_Boroda_, Спасибо большое!!
Интересно что и откуда.

Автор - AVI
Дата добавления - 05.07.2017 в 12:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При сохранении файлы появляется окошко с ошибкой (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!