Помогите пожалуйста, был написан макрос, но к сожалению теперь утерян : Сохраниение активного листа в новую книгу, в папку где находится исходный файл, имя файла = название листа
Сейчас есть только начало:
Код
Sub SohrList22()
Dim CurrentWin As Window
Dim VremWin As Window
Set CurrentWin = ActiveWindow
Set VremWin = ActiveWorkbook.NewWindow
CurrentWin.ActiveSheet.Copy
VremWin.Close
Path = ThisWorkbook.Path & "\"
ThisWorkbook.SaveAs (Path & ActiveSheet.Name)
End Sub
макрос создает файл с листом, но не берет название и не сохраняет
Валерий, если читали правила, то должны были запомнить, что один вопрос - одна тема. А у Вас два вопроса в одной теме. Оставьте один. И код следует оформлять соответствующим тегом: ищите такую кнопку <...>и исправьте своё сообщение.
Sub SohrList22()
dim sFullFileName as string
sFullFileName = ThisWorkbook.Path & "\" & ActiveSheet.Name
Dim CurrentWin As Window
Dim VremWin As Window
Set CurrentWin = ActiveWindow
Set VremWin = ActiveWorkbook.NewWindow
CurrentWin.ActiveSheet.Copy
VremWin.Close
ThisWorkbook.SaveAs (sFullFileName)
End Sub
Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori
JayBhagavan, благодарю за помощь. Где то ошибка, код присваивает исходному файлу с книгой, имя активного листа, а активный лист, который создан в новой книге становится с именем Книга1
P.S. Посмотрите пожалуйста, всё ли верно или есть что доработать или убрать: (я в этом не профи, не пойму зачем нужны команды Application.DisplayAlerts)
Код
Private Sub CopySheet()
Application.DisplayAlerts = False
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs .ActiveSheet.Name & ".xlsx", xlOpenXMLWorkbook
.Close False
End With
Application.DisplayAlerts = True
End Sub
Sub SaveSheet()
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs wb.Path & "\" & .ActiveSheet.Name & ".xlsx", xlOpenXMLWorkbook
.Close False
End With
Application.DisplayAlerts = True
End Sub