Private Sub DiapazonSaveInXLFile()
Dim iSource As Range, iFileName 'As Variant
Set iSource = ActiveSheet.Range("A1:D1000")
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")
.Close FileName:=iFileName, saveChanges:=True
End With
.DisplayAlerts = True '
.ScreenUpdating = True
Else
MsgBox "Для сохранения данных необходимо указать файл", , ""
End If
End With
End Sub
Помогите с макросом "Сохранить выделенный диапазон в новый файл"
Доброго времени суток!
Подскажите, пожалуйста, как написать макрос, позволяющий сохранить определённый диапазон (A1; D1000) в новом файле xls разрешения. При этом excel должен задать вопрос о названии файла и месте его сохранения.
Заранее спасибо!
Подскажите, пожалуйста, как написать макрос, позволяющий сохранить определённый диапазон (A1; D1000) в новом файле xls разрешения. При этом excel должен задать вопрос о названии файла и месте его сохранения.
Заранее спасибо!
Вот пример, позволяющий сохранить определённый диапазон, а именно диапазон смежных ячеек "A1:D1000" активного рабочего листа в выбранную Вами папку и с введённым именем файла.
P.S. Обратите внимание на то, что здесь нет проверки существования файла с указанным именем и если Вы введёте имя уже существующего файла, то старый будет "удалён"
Код: