Здравствуйте, не срабатывает макрос по переносу данных из одной книги в другую
В первой книге в ячейках значения полученные путем использования формул и переноса из листа в лист
а вторая книга пустая
выдает ошибку:
Run-time error 1004
метод Select из класса Range завершен неверно
[vba]Код
Sub Название_Макроса2()
'Открываем файл с которого нужно скопировать данные
Workbooks.Open Filename:="C:\Users\книга1.xlsm"
'Скопировать нужный диапазон в открывшейся книге на листе 1
Workbooks("книга1.xlsm").Worksheets("Лист4").Range("A1:G9").Copy
'Активируем нужную нам книгу
Workbooks("книга2.xlsm").Activate
'Выделяем и вставляем скопированные данные в ячейку А1
ActiveWorkbook.Worksheets("Лист1").Range("A1").Select
ActiveSheet.Paste
'Закрываем книгу откуда мы скопировали данные
Workbooks("книга1.xlsm").Close
End Sub
[/vba]