Добрый день.
Собрал макрос, который копирует заданный диапазон ячеек в новую книгу, но не получается корректно сформировать имя файла на выходе т.к. нужно что бы имя файла бралось не из выделенного диапазона.
Диапазон в исходной таблице - "A1:E129"
Название, которое нужно присвоить результирующей книге находится на I4 (или 4,9)
Собрал макрос, который копирует заданный диапазон ячеек в новую книгу, но не получается корректно сформировать имя файла на выходе т.к. нужно что бы имя файла бралось не из выделенного диапазона.
Диапазон в исходной таблице - "A1:E129"
Название, которое нужно присвоить результирующей книге находится на I4 (или 4,9)
| Код |
|---|
Sub copy_temp()
' Копируем диапазон
Range("A1:E129").Copy
' Заменяем формулы на значения
For Each cell In ActiveSheet.UsedRange.Cells
cell.Formula = cell.Value
Next cell
'Создаем новую книгу
Workbooks.Add
' Вставляем в созданную книгу ЗНАЧЕНИЯ
ActiveSheet.Paste
' Переименовываем лист в книге
Sheets("Лист1").Name = "Заказ"
'Сохраняем книгу в папку, где расположен файл с кодом
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & Cells(4, 9).Value & ".xlsx")
'Закрываем файл
ActiveWorkbook.Close
End Sub
|
Изменено: - 21.12.2020 16:59:05
