Копирование данных из одной книги в другую

VB777 Пользователь Сообщений: 184 Регистрация: 17.09.2016	#1 10.09.2018 11:10:01 Всем добрый день. Пытаюсь скопировать данные из одной книги в другую макросом, но не выходит. Книги все открыты Пробовал разные методы, но не выходит

Пользователь

Сообщений: 23800 Регистрация: 22.12.2012

10.09.2018 11:13:15

Цитата
VB777 написал: Книги все открыты

- где? Точнее в чём?

Пользователь

Сообщений: 184 Регистрация: 17.09.2016

10.09.2018 11:16:49

Цитата
Hugo написал: - где? Точнее в чём?

В Excel. Я сначала открыл exe'шником все нужные файлы, а теперь мне нужно перенести данные в основную.

a.i.mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#4 10.09.2018 11:20:24 VB777, от Вас хотят пример файлов из которого копируют и какой (с макросом). Не бойтесь совершенства. Вам его не достичь.

VB777 Пользователь Сообщений: 184 Регистрация: 17.09.2016	#5 10.09.2018 11:28:14 По размеру не проходит. https://yadi.sk/d/VQM-rhcFuN7b-w В файл Index на лист Start копировать ячейки с книги eshop_40059.csv Диапазон Все колонки В файл Index на лист Price копировать ячейки с книги price-McTrade.xls Диапазон Все колонки

Пользователь

Сообщений: 23800 Регистрация: 22.12.2012

10.09.2018 11:55:58

Цитата
VB777 написал: Я сначала открыл exe'шником

- очень подозрительно... Каким exe'шником?

VB777 Пользователь Сообщений: 184 Регистрация: 17.09.2016	#7 10.09.2018 12:37:13 Который сам сделал). Как мне реализовать то, что я задумал Изменено: VB777 - 10.09.2018 12:42:34 (дополнение)

Hugo Пользователь Сообщений: 23800 Регистрация: 22.12.2012	#8 10.09.2018 12:57:36 Переделать свой экзешник.

Пользователь

Сообщений: 184 Регистрация: 17.09.2016

10.09.2018 13:42:13

Код
'Загрузка с Прайса Workbooks("price.xls").Worksheets(1).Columns("A:L").Copy Sheets("Price").Select ActiveSheet.Range("A1").Select ActiveSheet.Paste Sheets("Start").Select

Вот как сделал и все копирует

Изменено: VB777 - 10.09.2018 13:43:00 (дополнение)