Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.06.2013, 23:27   #1
REztor
Форумчанин
 
Регистрация: 28.02.2009
Сообщений: 302
По умолчанию Макрос переноса всех данных из одной рабочей книги

Подскажите макрос для переноса всех данных из одной рабочей книги в другую
Или какой-нибудь другой способ как это можно сделать
REztor вне форума Ответить с цитированием
Старый 14.06.2013, 08:22   #2
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Код:
For Each Sh in Sheets
  Sh.Copy After:=Workbooks("Книга2").Sheets(Workbooks("Книга2").Sheets.Count)
Next Sh
например, так
Правильно поставленная задача - три четверти решения.

Последний раз редактировалось DiemonStar; 14.06.2013 в 08:29.
DiemonStar вне форума Ответить с цитированием
Старый 14.06.2013, 08:34   #3
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Есть способ. "Сохранить как".
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 14.06.2013, 09:28   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Есть кросс на кибере.
Но ссылку не дам (это не в их правилах ) - интересно как тут повернётся
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 14.06.2013, 11:31   #5
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Цитата:
Есть способ. "Сохранить как".
если результирующая книга непустая, то не прокатит
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 14.06.2013, 15:30   #6
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Цитата:
Сообщение от DiemonStar Посмотреть сообщение
если результирующая книга непустая, то не прокатит
Тс спрашивал:
Цитата:
Сообщение от REztor Посмотреть сообщение
макрос для переноса всех данных из одной рабочей книги в другую
Про "непустая", "добавление" в топе ни слова. Примера нет. Как копировать, данными, листами, добавлять, дополнять, заменять или... А еще и кросс. Я кроссерам не помогаю.
P.S. DiemonStar, я видел первый Ваш код, где копировались все ячейки активного листа Не в обиду.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728

Последний раз редактировалось kuklp; 14.06.2013 в 15:36.
kuklp вне форума Ответить с цитированием
Старый 14.06.2013, 16:06   #7
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Ладно, для оживления темы надёргал с кибера:
=================================== ============
Тема:
Макрос переноса всех данных из одной рабочей книги в другую

Hugo121:
Ну а если серьёзно - без примера и подробного объяснения что именно нужно - разговор несерьёзный.

Invincible
Форумчанин
Регистрация: 10.03.2012
Сообщений: 340
Например перенос определенных слайдов из одной презентации в другую с сохранение форматирования и расположения
=================================== ============
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 14.06.2013, 16:57   #8
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Цитата:
P.S. DiemonStar, я видел первый Ваш код, где копировались все ячейки активного листа Не в обиду.
Что-то сразу подумал, что со страницы) Есть за мной такой косяк, как невнимательность...
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 31.12.2013, 23:17   #9
REztor
Форумчанин
 
Регистрация: 28.02.2009
Сообщений: 302
По умолчанию

Спасибо большое
REztor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходима написать макрос переноса данных ggguzik Microsoft Office Excel 20 09.10.2012 23:08
Макрос переноса данных TbIL Microsoft Office Excel 3 15.02.2012 21:34
Макрос переноса данных. madex Microsoft Office Excel 13 18.12.2011 16:44
макрос для переноса введенных данных vostok Microsoft Office Excel 2 27.11.2010 11:16
Копирование данных из одной рабочей книги в другую макросом. Andrey3055 Microsoft Office Excel 2 30.10.2009 22:00