Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Excel. Скопировать из файла в файл с изменением листа (Макросы/Sub)
VBA Excel. Скопировать из файла в файл с изменением листа
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
 
Ответить
СообщениеПомогите, пожалуйста, начинающему писать макросы.
Столкнулась с трудностями.
Есть 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

Автор - Masik84
Дата добавления - 10.05.2019 в 17:29
RAN Дата: Пятница, 10.05.2019, 17:42 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5109
Репутация: 1019 ±
Замечаний: 0% ±

2010
Давным давно (ужо 2 часа как), далеко далеко, на Планете


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДавным давно (ужо 2 часа как), далеко далеко, на Планете

Автор - RAN
Дата добавления - 10.05.2019 в 17:42
Masik84 Дата: Пятница, 10.05.2019, 18:22 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Давным давно (ужо 2 часа как), далеко далеко, на Планете


только что увидела и ничегоооо не поняла :( я новичок в этом деле, и пока туговато дохожу до истины :(
так что не обеседьте, но ваше сообщение по сслыке, которую вы приложили, осталось для меня загадкой, сравнимой с Азбукой Морзе :(


Сообщение отредактировал Masik84 - Пятница, 10.05.2019, 18:23
 
Ответить
Сообщение
Давным давно (ужо 2 часа как), далеко далеко, на Планете


только что увидела и ничегоооо не поняла :( я новичок в этом деле, и пока туговато дохожу до истины :(
так что не обеседьте, но ваше сообщение по сслыке, которую вы приложили, осталось для меня загадкой, сравнимой с Азбукой Морзе :(

Автор - Masik84
Дата добавления - 10.05.2019 в 18:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Excel. Скопировать из файла в файл с изменением листа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!