VBA Excel. Скопировать из файла в файл с изменением листа

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Excel. Скопировать из файла в файл с изменением листа (Макросы/Sub)

Masik84

Дата: Пятница, 10.05.2019, 17:29 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2016

Помогите, пожалуйста, начинающему писать макросы.
Столкнулась с трудностями.
Есть 2 файла, нужно из одно файла скопировать данные в другой в лист, который уже существует, но только название листа будет зависеть от ячеки Book1.Macro.E6
нужно 2 способа копирования
1. Полностью данные с листа Book1.Invoice
2. Все данные с листа Book1.Invoice начиная с строки 2

Есть такой код:
[vba]

Код

Sub Copy_Data()

Dim sh_src As Worksheet, sh_res As Worksheet
Set sh_src = Workbooks("Book1.xlsm").Worksheets("Invoices")
Set rg_src = Workbooks("Book1.xlsm").Worksheets("Macro").Range("E6")
Set sh_res = Workbooks("Book2.xlsx").Sheets(rg_src.Value)
sh_src.UsedRange.Offset(1, 0).Copy sh_res.[A1].End(xlDown)(2)

MsgBox ("INCOICES DOWNLIADING - Compleat!")

End Su

[/vba]b

Но макрос постоянно ругается на строку: Set sh_res = Workbooks("Book2.xlsx").Sheets(rg_src.Value)
и ничего не копирует.

Помогите поправить макрос для реализации п.1 и 2