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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение файла из шаблона макросом. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла из шаблона макросом. (Макросы/Sub)
Сохранение файла из шаблона макросом.
bsi Дата: Воскресенье, 22.10.2017, 15:13 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем привет. Имеется шаблон документа Excel. Необходимо сохранить документ в папку где и шаблон с данными из ячейки J2. При сохранении выскакивает ошибка. Пробовал сохранять документ меняя в макросе различные расширения для сохранения файла, но результат тот же. В шаблоне выбран вариант сохранения документа с поддержкой макросов (xlsm), но надо чтобы документ сохранялся без поддержки макросов (расширение xlsx). Если же делаю из этого шаблона просто лист Excel c расширением xlsm и через макрос сохраняю с данными из ячейки J2 и расширением xlsm, то всё сохраняется нормально и сохранённый файл открывается, но если в макросе ставлю для сохранения расширение xlsx, то файл сохраняется но не открывается, сообщение следующее "Не удаётся открыть файл т.к. формат или расширение этого файла являются не допустимыми. Специалисты посмотрите в чём проблема. Excel у меня 2016. Файлы во вложении. Всем спасибо.
К сообщению приложен файл: 6035700.xltm (26.6 Kb) · 2923544.xlsm (26.6 Kb)


Сообщение отредактировал bsi - Воскресенье, 22.10.2017, 15:14
 
Ответить
СообщениеВсем привет. Имеется шаблон документа Excel. Необходимо сохранить документ в папку где и шаблон с данными из ячейки J2. При сохранении выскакивает ошибка. Пробовал сохранять документ меняя в макросе различные расширения для сохранения файла, но результат тот же. В шаблоне выбран вариант сохранения документа с поддержкой макросов (xlsm), но надо чтобы документ сохранялся без поддержки макросов (расширение xlsx). Если же делаю из этого шаблона просто лист Excel c расширением xlsm и через макрос сохраняю с данными из ячейки J2 и расширением xlsm, то всё сохраняется нормально и сохранённый файл открывается, но если в макросе ставлю для сохранения расширение xlsx, то файл сохраняется но не открывается, сообщение следующее "Не удаётся открыть файл т.к. формат или расширение этого файла являются не допустимыми. Специалисты посмотрите в чём проблема. Excel у меня 2016. Файлы во вложении. Всем спасибо.
Автор - bsi
Дата добавления - 22.10.2017 в 15:13
RAN Дата: Воскресенье, 22.10.2017, 15:40 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
SaveCopyAs
[/vba]
Курите справку.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
SaveCopyAs
[/vba]
Курите справку.
Автор - RAN
Дата добавления - 22.10.2017 в 15:40
bsi Дата: Вторник, 24.10.2017, 12:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Правильно будет так:[vba]
Код
Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="D:\Masha\Шаблон\1\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False ' путь для сохранённого файла в формате xlsx
OpenPath = ThisWorkbook.Path = "D:\Masha\Шаблон\" ' путь где находится сам шаблон
Application.DisplayAlerts = True
[/vba]
 
Ответить
СообщениеПравильно будет так:[vba]
Код
Application.DisplayAlerts = False
'Сохранение книги с именем из ячейки J2 в папку откуда открыт файл
Me.Save 'если надо сохранить изменения
ActiveWorkbook.SaveAs Filename:="D:\Masha\Шаблон\1\" & [F2].Value & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False ' путь для сохранённого файла в формате xlsx
OpenPath = ThisWorkbook.Path = "D:\Masha\Шаблон\" ' путь где находится сам шаблон
Application.DisplayAlerts = True
[/vba]
Автор - bsi
Дата добавления - 24.10.2017 в 12:18
lebensvoll Дата: Среда, 02.12.2020, 15:44 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1002
Репутация: 30 ±
Замечаний: 0% ±

Excel 2010
bsi, добрый день.
А не могли бы пояснить зачем вы добавляете "путь где находится шаблон"!?
[vba]
Код
OpenPath = ThisWorkbook.Path = "D:\Masha\Шаблон\" ' путь где находится сам шаблон
[/vba]
Заранее спасибо!!!

Кто бы ты ни был, мир в твоих руках
 
Ответить
Сообщениеbsi, добрый день.
А не могли бы пояснить зачем вы добавляете "путь где находится шаблон"!?
[vba]
Код
OpenPath = ThisWorkbook.Path = "D:\Masha\Шаблон\" ' путь где находится сам шаблон
[/vba]
Заранее спасибо!!!
Автор - lebensvoll
Дата добавления - 02.12.2020 в 15:44
RAN Дата: Среда, 02.12.2020, 18:08 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Даже и не знаю, в какой из тем ответить.
Когда вы открываете шаблон, у нового файла нет пути для сохранения. И его нужно указать принудительно.
Издержки производства...

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 02.12.2020, 18:11
 
Ответить
СообщениеДаже и не знаю, в какой из тем ответить.
Когда вы открываете шаблон, у нового файла нет пути для сохранения. И его нужно указать принудительно.
Издержки производства...
Автор - RAN
Дата добавления - 02.12.2020 в 18:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение файла из шаблона макросом. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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