Как программно скопировать лист экселя из 1 книги в другую со всеми делами? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

13 сообщений из 13, страница 1 из 1

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38598991

гр к

Гость

Т.е. чтобы осталось форматирование, скрытые строки и столбцы остались скрытыми, формулы не превратились в числа и тп.
Просто копировать лист удается так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

With xls
branchCode = Val(.Range("A1"))
strDestinationSheetName = GetDestinationSheetName(branchCode)
Set xls0 = xlw0.Worksheets(strDestinationSheetName)
xls0.Cells.Clear
    .Cells.Copy
        xls0.Select
    xls0.Range("A1").Select
    ActiveSheet.Paste
End With

А чтоб со всеми делами никак не придумывается(

...

Рейтинг:

0 / 0

28.03.2014, 12:15

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599014

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

Sheets("Лист4").Copy After:=Workbooks("Книга2").Sheets("Лист2")

...

Рейтинг:

0 / 0

28.03.2014, 12:28

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599033

гр к

Гость

Shocker.Pro

Код: vbnet

Sheets("Лист4").Copy After:=Workbooks("Книга2").Sheets("Лист2")

Я неправильно задачу написал - мне нужно не лист из 1 книги в другую скопир-ть, а все его содержимое скопир-ть на определенный лист.

...

Рейтинг:

0 / 0

28.03.2014, 12:42

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599038

гр к

Гость

гр кShocker.Pro

Код: vbnet

Sheets("Лист4").Copy After:=Workbooks("Книга2").Sheets("Лист2")

Я неправильно задачу написал - мне нужно не лист из 1 книги в другую скопир-ть, а все его содержимое скопир-ть на определенный лист.
На опр-й лист другой книги.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

Set xlw = xla.Workbooks.Open(FolderSpec & WBFileName)
Set xlw0 = ThisWorkbook
Set xls = xlw.Worksheets(1)

With xls
branchCode = Val(.Range("A1"))
strDestinationSheetName = GetDestinationSheetName(branchCode)
Set xls0 = xlw0.Worksheets(strDestinationSheetName)

Т.е. из xls все скопир-ть в xls0

...

Рейтинг:

0 / 0

28.03.2014, 12:44

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599194

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

гр кмне нужно не лист из 1 книги в другую скопир-ть, а все его содержимое скопир-ть на определенный лист.а в чем проблема? скопируй лист целиком, а тот грохни, если не нужен

...

Рейтинг:

0 / 0

28.03.2014, 14:22

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599196

гр к

Гость

Shocker.Proгр кмне нужно не лист из 1 книги в другую скопир-ть, а все его содержимое скопир-ть на определенный лист.а в чем проблема? скопируй лист целиком, а тот грохни, если не нужен
листов 30 штук и их надо в опред. порядке располагать

...

Рейтинг:

0 / 0

28.03.2014, 14:24

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599225

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

И в чем проблема располагать их в определенном порядке?
Посмотрите внимательно код, который я предложил или почитайте справку про Copy, если сходу не очевидно

...

Рейтинг:

0 / 0

28.03.2014, 14:35

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599269

гр к

Гость

Shocker.Pro, операций много лишних по сравнению с простым копир-м. Способ рабочий, не спорю, но я решил сделать иначе.

...

Рейтинг:

0 / 0

28.03.2014, 15:17

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599286

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

посмеялся, спасибо

...

Рейтинг:

0 / 0

28.03.2014, 15:27

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599297

гр к

Гость

Shocker.Proпосмеялся, спасибо
А чего смешного?
Листы должны быть в опр-м порядке и иметь опр-е назв-я - в завис-ти от исх файла.
После

Код: vbnet

Sheets("Лист4").Copy After:=Workbooks("Книга2").Sheets("Лист2")

нужно было бы каждый лист переименовывать и потом их сортировать.

...

Рейтинг:

0 / 0

28.03.2014, 15:34

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599318

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

смешно, что мой код, копирующий лист в одну строку оказывается длиннее, чем твой, в несколько строк, который еще и буфер обмена портит и проблемы создает.

зачем сортировать - непонятно, тебе же заранее известно, куда надо вставить новый лист, вставляй сразу в нужное.

...

Рейтинг:

0 / 0

28.03.2014, 15:46

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599404

гр к

Гость

Shocker.Proсмешно, что мой код, копирующий лист в одну строку оказывается длиннее, чем твой, в несколько строк, который еще и буфер обмена портит и проблемы создает.

зачем сортировать - непонятно, тебе же заранее известно, куда надо вставить новый лист, вставляй сразу в нужное.
Да, я похоже, не догнал, что можно в натуре, как ты писал, скопировать лист и вставить его сразу после известного листа шаблона, и потом тот лист удалить.
ЗЫ Но все равно новый лист нужно переименовывать - так что признай свою неправоту насчет "1 строки". :-/

...

Рейтинг:

0 / 0

28.03.2014, 16:49

| Ответить | Цитировать | Написать

Как программно скопировать лист экселя из 1 книги в другую со всеми делами?

#38599408

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

тебе помощь нужна или сатисфакция?
мало того, что ответ получил сразу, так еще и убеждать понадобилось, что это то, что нужно

...

Рейтинг:

0 / 0

28.03.2014, 16:52

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=38599225&tid=2174149]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	111ms
get topic data:	10ms
get forum data:	2ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	13ms

total:	218ms