Скопировать скрытый лист в новую книгу

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Скопировать скрытый лист в новую книгу (Макросы/Sub)

lopuxi

Дата: Вторник, 19.04.2016, 11:22 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007, 2013

Добрый день.

Хочу скопировать скрытый лист в книге, в новую книгу.
А ситуация такая, макрос конфигурирует собранную инфу из книги на скрытом листе (xlSheetVeryHidden) и далее мне его надо скопировать из этой книги и создав новую вставить.

В общем что-то у меня ругается на мою строку Svod_Reg.Copy (Svod_Reg - имя листа)

Код типа этого не помог. Ругается на Select
[vba]

Код

Svod_Reg.Activate
Svod_Reg.Select
Svod_Reg.Copy

[/vba]

Как еще можно скопировать лист?

К сообщению приложен файл: ____.xlsm (19.0 Kb)

О_о ...и так можно было?

Сообщение отредактировал lopuxi - Вторник, 19.04.2016, 11:30

Ответить

SLAVICK

Дата: Вторник, 19.04.2016, 11:31 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата lopuxi, 19.04.2016 в 11:22, в сообщении № 1

Svod_Reg - имя листа

Ну если Svod_Reg - имя то и не скопируете.

Цитата lopuxi, 19.04.2016 в 11:22, в сообщении № 1

Как еще можно скопировать лист?

Так:
[vba]

Код

Sub d()
With ThisWorkbook.Sheets("Svod_Reg")
    .Visible = -1
    .Copy
    .Visible = 2
End With
End Sub

[/vba]

К сообщению приложен файл: 4612309.xlsm (16.8 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

lopuxi

Дата: Вторник, 19.04.2016, 11:38 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007, 2013

Цитата SLAVICK, 19.04.2016 в 11:31, в сообщении № 2

Ну если Svod_Reg - имя то и не скопируете.

Не ну не прям название в книге у него Svod_Reg. А в редакторе VBA я дал имя листу.
Но в общем то имя листа в Excel менять не будет, так что должно работать и так
Спасибо)

О_о ...и так можно было?

Сообщение отредактировал lopuxi - Вторник, 19.04.2016, 11:39

Ответить

lopuxi

Дата: Вторник, 19.04.2016, 11:48 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007, 2013

Я добавил защиту книги и у меня теперь ругается

[vba]

Код

With ThisWorkbook.Sheets("Лист1")
    .Unprotect Password:="555"
    .Visible = -1
    .Copy
    .Visible = 2
    .Protect Password:="555", Structure:=True, Windows:=False
End With

[/vba]

О_о ...и так можно было?

Ответить

lopuxi

Дата: Вторник, 19.04.2016, 12:05 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007, 2013

Все ! Спасибо! Справился.
вот так все работает
[vba]

Код

Option Explicit
Dim wb_1 As Excel.Workbook

Private Sub CommandButton1_Click()
Set wb_1 = ActiveWorkbook ' Основная книга

wb_1.Unprotect Password:="555"
With wb_1.Sheets("Лист1")
    .Visible = -1
    .Copy
    .Visible = 2
End With
wb_1.Protect Password:="555", Structure:=True, Windows:=False '  блокируем книгу
End Sub

[/vba]

О_о ...и так можно было?

Ответить

dredder_gun

Дата: Вторник, 03.05.2016, 08:08 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Никто не подскажет, почему листы не отображаются на панели? Поставил галочку в параметрах, всё-равно ничего не отображается
[moder]Ваш вопрос не по теме.
Создайте новую тему.[/moder]

Сообщение отредактировал SLAVICK - Вторник, 03.05.2016, 09:55

Ответить

Скопировать скрытый лист в новую книгу (Макросы/Sub)

Страница 1 из 1
1