как заставить работать макрос по переносу данных

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » как заставить работать макрос по переносу данных (Формулы/Formulas)

Tort

Дата: Четверг, 26.12.2019, 12:28 | Сообщение № 1

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

Ранг: Участник

Сообщений: 60

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

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

Excel 2016

Здравствуйте, не срабатывает макрос по переносу данных из одной книги в другую
В первой книге в ячейках значения полученные путем использования формул и переноса из листа в лист
а вторая книга пустая

выдает ошибку:
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]