Страницы: 1
RSS
Копирование данных из текущего листа в новую книгу
 
Доброго дня! Прошу помощи с решением задачи - есть файл, который на листе "Заявка" заполняют заказчики, проставляя артикулы определенной номенклатуры, после чего с других листов ВПРятся данные (номенклатура, цена, единица измерения). После заполнения нужно чтобы нажатием кнопки "Создать заявку" ВСЕ значения из столбцов от А до F (не формулы) с этого листа копировались в новую книгу. Образец файла со структурой полей на листе "Заявка" вложил.
Буду признателен за помощь и советы.
 
Решение.
Код
    ActiveSheet.Copy
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next
Изменено: skais675 - 05.10.2020 09:19:21
 
skais675, спасибо Вам за помощь. А как правильно задавать имя нового файла при копировании, чтобы было - название листа + дата текущая?
Я так понимаю надо использовать ActiveWorkbook.SaveAs, но как задать в него имя листа и дату не могу понять.
 
Wizzards08, Все верно.
Код
ActiveWorkbook.SaveAs ThisWorkbook.Path + "\" + ActiveSheet.Name + " " + Format(Now, "ddmmyyyy") + "xlsx"
Страницы: 1
Наверх