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

Вход

Регистрация

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

 

= Мир MS Excel/Задать расширение файла с поддержкой макросов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Задать расширение файла с поддержкой макросов (Макросы/Sub)
Задать расширение файла с поддержкой макросов
Ruslan454 Дата: Суббота, 01.02.2020, 21:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Привет всем! Имею такую вот команду, всё работает идеально, но не знаю как заставить создавать файл с расширением xlsm, а то он стандартно выдает xls.
Если не сложно, подскажите что тут надо еще вписать.

[vba]
Код
Sub SPLIT()
Dim CurW As Window
Dim TempW As Window
Set CurW = ActiveWindow
Set TempW = ActiveWorkbook.NewWindow
CurW.SelectedSheets.Copy
TempW.Close
ActiveWorkbook.SaveAs [L3]
End Sub
[/vba]


Сообщение отредактировал Ruslan454 - Суббота, 01.02.2020, 21:47
 
Ответить
СообщениеПривет всем! Имею такую вот команду, всё работает идеально, но не знаю как заставить создавать файл с расширением xlsm, а то он стандартно выдает xls.
Если не сложно, подскажите что тут надо еще вписать.

[vba]
Код
Sub SPLIT()
Dim CurW As Window
Dim TempW As Window
Set CurW = ActiveWindow
Set TempW = ActiveWorkbook.NewWindow
CurW.SelectedSheets.Copy
TempW.Close
ActiveWorkbook.SaveAs [L3]
End Sub
[/vba]

Автор - Ruslan454
Дата добавления - 01.02.2020 в 21:28
RAN Дата: Суббота, 01.02.2020, 21:36 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5251
Репутация: 1054 ±
Замечаний: 0% ±

2010
[vba]
Код
ActiveWorkbook.SaveAs [L3],52
[/vba]
И не говорите, что не работает.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
ActiveWorkbook.SaveAs [L3],52
[/vba]
И не говорите, что не работает.

Автор - RAN
Дата добавления - 01.02.2020 в 21:36
Ruslan454 Дата: Суббота, 01.02.2020, 21:48 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
RAN, Век живи, век учись))). Спасибо!
 
Ответить
СообщениеRAN, Век живи, век учись))). Спасибо!

Автор - Ruslan454
Дата добавления - 01.02.2020 в 21:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Задать расширение файла с поддержкой макросов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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