Всем привет, нужна помощь с макросом, который переносит выделенный диапазон ячеек в новую книгу. В программировании не силен, но кое что с гугл-помощью набросать получилось (кстати, может еще кому сгодится). Скрипт берет заданный диапазон ячеек A2:AD3, а так же тот, который выделен мышкой и на их основе создает новую книгу, предварительно выдав запрос, с просьбой ввести имя файла. Но никак не могу усовершенствовать данный код, что бы сохранилось форматирование изначальных ячеек (цвет, ширина, высота). Тоесть что бы эти параметры в новой книги были такими же.. Очень надеюсь на Вашу помощь
Код |
---|
Sub DiapazonSaveInXLFile()
Dim iSource, diapazon As Range, iFileName 'As Variant
Set iSource = ActiveSheet.Range("A2:AD3")
Set diapazon = Selection
With Application
iFileName = .GetSaveAsFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Введите имя файла")
If iFileName <> False Then
.ScreenUpdating = False
.DisplayAlerts = False '
With .Workbooks.Add(xlWBATWorksheet)
iSource.Copy Destination:=.Worksheets(1).Range("A1")
diapazon.Copy Destination:=.Worksheets(1).Range("A3")
.Close Filename:=iFileName, saveChanges:=True
End With
.DisplayAlerts = True '
.ScreenUpdating = True
Else
MsgBox "Ошибка!", , ""
End If
End With
End Sub |