Как в макросе Excel сделать копирование диапазона ячеек из одной книги в другую?

Question

[Сергей Арсентьев]

приветствую, пытаюсь скопировать диапазон ячеек из одной книги в другую.
если делаю вот так:

Set rgCopy = wb1.Sheets(1).Range("A8:M65")
rgCopy.Copy Destination:=wb2.Sheets(1).Range("A8:M65")

то копируется.
но у меня диапазон меняется каждый раз и надо подставлять туда переменные с указанием начала и конца диапазона, и например, вот так уже не работает:

Set rgCopy = wb1.Sheets(1).Range(Cells(8, 1), Cells(65, 13))
rgCopy.Copy Destination:=wb2.Sheets(1).Range("A8:M65")

Как правильно сделать копирование произвольного диапазона из одной книги в другую?

Comments

[Akina]

Правильно не работает. От чего вы собираетесь отсчитывать Cells?

Я одного не понимаю - переменных жалко, что ли? Определите пару переменных типа Worksheet, в них положите ссылки на исходный и конечный листы, и для всех объектов пляшите от этих переменных.

SET src_sheet = wb1.Sheets(1)
SET dst_sheet = wb2.Sheets(1)
Set rgCopy = src_sheet.Range(src_sheet.Cells(8, 1), src_sheet.Cells(65, 13))
rgCopy.Copy Destination:=dst_sheet.Range("A8:M65")

[Сергей Арсентьев]

Akina, Спасибо большое, всё работает, я даже не подумал, что перед cells надо опять же поставить объект, откуда брать инфу, думал возьмет от того, что перед range.

Answer 1

[Никита Дворец]

Добрый день!
Примерно по такой логике:
' открыты обе книги

' Set rgCopy = wb1.Sheets(1).Range(Cells(8, 1), Cells(65, 13))
' rgCopy.Copy Destination:=wb2.Sheets(1).Range("A8:M65")

Application.CutCopyMode = False

Dim wb1 As Workbook
Set wb1 = ActiveWorkbook


Dim wb2 As Workbook
Set wb2 = Workbooks("C:\Users\DataFile.xlsm")

wb1.Activate
wb1.Sheets(1).Range(Cells(8, 1), Cells(65, 13)).Copy

wb2.Activate
wb2.Sheets(1).Range("A8").Select
Selection.Paste

Application.CutCopyMode = True