создание новой книги с данными из указного диапазона

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » создание новой книги с данными из указного диапазона (Макросы/Sub)

frimen

Дата: Четверг, 16.11.2017, 13:39 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

здравствуйте коллеги,
помогите решить задачу

нужно создать новую книгу и перенести в неё данные из текущеного листа и указаного диапазона в нем столбов A-N

Ответить

GeorgiyV

Дата: Пятница, 17.11.2017, 09:53 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Вот так:

[vba]

Код

Public Sub CopyRange()

    'Создаем новую книгу
    Dim wkbNewWorkbook As Workbook
    Set wkbNewWorkbook = Application.Workbooks.Add

    'Сохраняем в каталоге исходного файла
    wkbNewWorkbook.SaveAs Filename:=ThisWorkbook.path & "\" & wkbNewWorkbook.Name, _
        FileFormat:=xlOpenXMLWorkbook   '.xlsx
        'FileFormat:= xlExcel8          '.xls

    'Копируем диапазон в новую книгу на первый лист
    ThisWorkbook.ActiveSheet.Range("A:N").Copy _
        Destination:=wkbNewWorkbook.Worksheets.Item(1).Range("A1")

    'Закрываем с сохранением
    wkbNewWorkbook.Close (True)

    Set wkbNewWorkbook = Nothing

End Sub

[/vba]