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

Вход

Регистрация

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

 

= Мир MS Excel/копирование из одной книги в другие - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » копирование из одной книги в другие (Формулы/Formulas)
копирование из одной книги в другие
R_N_V Дата: Вторник, 05.12.2017, 10:06 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Помогите, пожалуйста.
Есть исходный файл и 75 файлов, куда необходимо скопировать определенные ячейки.
Как можно это сделать не вручную?
Заранее благодарю.
 
Ответить
СообщениеДобрый день.
Помогите, пожалуйста.
Есть исходный файл и 75 файлов, куда необходимо скопировать определенные ячейки.
Как можно это сделать не вручную?
Заранее благодарю.

Автор - R_N_V
Дата добавления - 05.12.2017 в 10:06
koyaanisqatsi Дата: Вторник, 05.12.2017, 10:10 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 657
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
Добрый день. Если в макросах рубишь могу аналогичный показать как сделано у меня.

Страницы надо поменять и пути добавить к файлам так как у меня прописан путь к одному файлу. Ну и еще одно но. Естественно все 75 файлов в этот момент должны быть закрыты.

[vba]
Код
Sub Этикетки_Развесы()
Dim bookconst As Workbook
Dim abook As Workbook
Set abook = ActiveWorkbook 'присваиваем перменную активной книге
Set bookconst = Workbooks.Open("\\server\ОБЩИЕ_ДОКУМЕНТЫ\ЭтикеткиРазвесы.xlsm") 'присваиваем перменную книге куда необходимо копировать данные

'переходим в активную книгу откуда необходимо скопировать данные
abook.Worksheets("Заявки").Activate
Range("A2:AR296").Copy 'копируем определенный диапазон листа, укажите свой диапазон
bookconst.Worksheets("Заявки").Activate 'активируем лист куда необходимо вставить данные
Range("A2:AR296").Select 'встаем на ячейку А2
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем только форматы ячеек
'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False
'второй лист
abook.Worksheets("Рейсы Вторник").Activate
Range("A1:T220").Copy
bookconst.Worksheets("Рейсы Вторник").Activate
Range("A1:T220").Select 'выделяем диапазон
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем только форматы ячеек
'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False
'третий лист
abook.Worksheets("РепаБр").Activate
Range("H3:Q56").Copy
bookconst.Worksheets("РепаБр").Activate
Range("H3:Q56").Select 'выделяем диапазон
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем только форматы ячеек
'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False
'сохранить текущую книгу
' bookconst.Save
'abook.Worksheets("Весь Зак").Activate
'Закрыть книгу
bookconst.Worksheets("Ко-Во Развесов").Activate
End Sub
[/vba]
 
Ответить
СообщениеДобрый день. Если в макросах рубишь могу аналогичный показать как сделано у меня.

Страницы надо поменять и пути добавить к файлам так как у меня прописан путь к одному файлу. Ну и еще одно но. Естественно все 75 файлов в этот момент должны быть закрыты.

[vba]
Код
Sub Этикетки_Развесы()
Dim bookconst As Workbook
Dim abook As Workbook
Set abook = ActiveWorkbook 'присваиваем перменную активной книге
Set bookconst = Workbooks.Open("\\server\ОБЩИЕ_ДОКУМЕНТЫ\ЭтикеткиРазвесы.xlsm") 'присваиваем перменную книге куда необходимо копировать данные

'переходим в активную книгу откуда необходимо скопировать данные
abook.Worksheets("Заявки").Activate
Range("A2:AR296").Copy 'копируем определенный диапазон листа, укажите свой диапазон
bookconst.Worksheets("Заявки").Activate 'активируем лист куда необходимо вставить данные
Range("A2:AR296").Select 'встаем на ячейку А2
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем только форматы ячеек
'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False
'второй лист
abook.Worksheets("Рейсы Вторник").Activate
Range("A1:T220").Copy
bookconst.Worksheets("Рейсы Вторник").Activate
Range("A1:T220").Select 'выделяем диапазон
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем только форматы ячеек
'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False
'третий лист
abook.Worksheets("РепаБр").Activate
Range("H3:Q56").Copy
bookconst.Worksheets("РепаБр").Activate
Range("H3:Q56").Select 'выделяем диапазон
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'вставляем только форматы ячеек
'Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False
'сохранить текущую книгу
' bookconst.Save
'abook.Worksheets("Весь Зак").Activate
'Закрыть книгу
bookconst.Worksheets("Ко-Во Развесов").Activate
End Sub
[/vba]

Автор - koyaanisqatsi
Дата добавления - 05.12.2017 в 10:10
Hugo Дата: Вторник, 05.12.2017, 10:13 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2721
Репутация: 606 ±
Замечаний: 0% ±

Макросом.
Делаете так - включаете запись макроса, копируете как Вам нужно ячейки в пару файлов, выключаете запись макроса.
Редактируете (вручную!) полученный код, чтоб обрабатывались все нужные файлы.


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеМакросом.
Делаете так - включаете запись макроса, копируете как Вам нужно ячейки в пару файлов, выключаете запись макроса.
Редактируете (вручную!) полученный код, чтоб обрабатывались все нужные файлы.

Автор - Hugo
Дата добавления - 05.12.2017 в 10:13
R_N_V Дата: Вторник, 05.12.2017, 10:14 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
koyaanisqatsi, а без макросов никак?
пока не дошла до них %)
 
Ответить
Сообщениеkoyaanisqatsi, а без макросов никак?
пока не дошла до них %)

Автор - R_N_V
Дата добавления - 05.12.2017 в 10:14
koyaanisqatsi Дата: Вторник, 05.12.2017, 10:16 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 657
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
R_N_V, насколько я понимаю без макроса вы другой файл не откроете автоматом. Ну и надоест копировать данные по 75 файлам дойдете до макросов)
 
Ответить
СообщениеR_N_V, насколько я понимаю без макроса вы другой файл не откроете автоматом. Ну и надоест копировать данные по 75 файлам дойдете до макросов)

Автор - koyaanisqatsi
Дата добавления - 05.12.2017 в 10:16
Hugo Дата: Вторник, 05.12.2017, 10:16 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2721
Репутация: 606 ±
Замечаний: 0% ±

Без макросов - наймите сотрудника :)


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеБез макросов - наймите сотрудника :)

Автор - Hugo
Дата добавления - 05.12.2017 в 10:16
R_N_V Дата: Вторник, 05.12.2017, 10:22 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Hugo, )) надеюсь сама их смогу освоить :D
koyaanisqatsi, попробую разобраться. спасибо)
 
Ответить
СообщениеHugo, )) надеюсь сама их смогу освоить :D
koyaanisqatsi, попробую разобраться. спасибо)

Автор - R_N_V
Дата добавления - 05.12.2017 в 10:22
Hugo Дата: Вторник, 05.12.2017, 10:27 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2721
Репутация: 606 ±
Замечаний: 0% ±

Вообще предствленный выше код очень неоптимален - там следует поубирать все активации и селекты, конечно скорректировав код.


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеВообще предствленный выше код очень неоптимален - там следует поубирать все активации и селекты, конечно скорректировав код.

Автор - Hugo
Дата добавления - 05.12.2017 в 10:27
koyaanisqatsi Дата: Вторник, 05.12.2017, 10:40 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 657
Репутация: 15 ±
Замечаний: 0% ±

Excel 2010
Hugo, Работает долго но корректно.
К сожалению я сам не знаю языка программирования и заинтересовать нечем людей кто знает. Так что катимся как едет. Благо можем себе это позволить. А так да вполне возможно код не оптимален.
 
Ответить
СообщениеHugo, Работает долго но корректно.
К сожалению я сам не знаю языка программирования и заинтересовать нечем людей кто знает. Так что катимся как едет. Благо можем себе это позволить. А так да вполне возможно код не оптимален.

Автор - koyaanisqatsi
Дата добавления - 05.12.2017 в 10:40
R_N_V Дата: Вторник, 05.12.2017, 11:24 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
а еще такой вопрос.
в этом сводном файле, откуда данные скопированы в 75 файлах, при изменении данных не обновляет ссылку на эти файлы. это можно как-то настроить?
 
Ответить
Сообщениеа еще такой вопрос.
в этом сводном файле, откуда данные скопированы в 75 файлах, при изменении данных не обновляет ссылку на эти файлы. это можно как-то настроить?

Автор - R_N_V
Дата добавления - 05.12.2017 в 11:24
Hugo Дата: Вторник, 05.12.2017, 11:30 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2721
Репутация: 606 ±
Замечаний: 0% ±

при изменении данных не обновляет ссылку на эти файлы
- может мало платите? Или наймите другого, пусть другой обновляет. :)
А если серьёзно - вот вообще ничего из вышенаписанного не понял... кроме первой строки :)


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
Сообщение
при изменении данных не обновляет ссылку на эти файлы
- может мало платите? Или наймите другого, пусть другой обновляет. :)
А если серьёзно - вот вообще ничего из вышенаписанного не понял... кроме первой строки :)

Автор - Hugo
Дата добавления - 05.12.2017 в 11:30
R_N_V Дата: Вторник, 05.12.2017, 11:42 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Hugo, попробую по-другому объяснить))
есть сводный файл, куда подтягиваются расчетные данные из 75 файлов. В свою очередь в этих файлах данные рассчитываются на основании информации, которая находится в сводном файле. По идее, при изменении этой информации данные в 75 файлах и в самом сводном файле должны пересчитываться. но они этого не делают, если файлы закрыты.
Вопрос: можно ли так настроить сводный файл, чтобы независимо от того открыты расчетные файлы (75) или нет, данные пересчитывались?
 
Ответить
СообщениеHugo, попробую по-другому объяснить))
есть сводный файл, куда подтягиваются расчетные данные из 75 файлов. В свою очередь в этих файлах данные рассчитываются на основании информации, которая находится в сводном файле. По идее, при изменении этой информации данные в 75 файлах и в самом сводном файле должны пересчитываться. но они этого не делают, если файлы закрыты.
Вопрос: можно ли так настроить сводный файл, чтобы независимо от того открыты расчетные файлы (75) или нет, данные пересчитывались?

Автор - R_N_V
Дата добавления - 05.12.2017 в 11:42
Hugo Дата: Вторник, 05.12.2017, 11:44 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2721
Репутация: 606 ±
Замечаний: 0% ±

Ответ - нельзя.
Но можно макросом перебрать все эти 75 файлов - открыть, дать пересчитаться (или пересчитать), сохранить-закрыть.


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеОтвет - нельзя.
Но можно макросом перебрать все эти 75 файлов - открыть, дать пересчитаться (или пересчитать), сохранить-закрыть.

Автор - Hugo
Дата добавления - 05.12.2017 в 11:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » копирование из одной книги в другие (Формулы/Formulas)
Страница 1 из 11
Поиск:

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