Блог

У меня есть диапазон значений от A2 до B6, и я хочу сохранить эти ячейки в новой книге. Папка назначения находится в (C:) и имеет имя «Продукты», поэтому новая книга должна находиться внутри этой папки.

Кроме того, в качестве плюса было бы удивительно, если бы перед сохранением файла макрос мог спросить меня через поле ввода, какое имя файла я хочу дать новому файлу excel.

Что-то вроде этого сделало бы работу:

 Sub CopyToNewWb()

Dim wb As Workbook
Dim wb_New As Workbook

Set wb = ThisWorkbook
Dim wbstring As String
Dim input_file_name As String

input_file_name = InputBox("Enter file name", "Enter new workbook file name") 'Create input box

wbstring = "C:Products" 'Set workbook path
Workbooks.Add.SaveAs Filename:=wbstring amp; input_file_name amp; ".xls", FileFormat:=56 'I would add date here if user enters the same name twice...

Set wb_New = ActiveWorkbook

wb_New.Worksheets("Sheet1").Range("A2:B6").Value = wb.Worksheets("Sheet1").Range("A2:B6").Value 'Copy Range from wb to new workbook

End Sub
 

Для получения различных номеров форматов файлов, пожалуйста, перейдите по ссылке:
https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat