Задать расширение файла с поддержкой макросов

Вход

Регистрация

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

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

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

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

Задать расширение файла с поддержкой макросов (Макросы/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]