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

Вход

Регистрация

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

 

= Мир MS Excel/Скопировать скрытый лист в новую книгу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать скрытый лист в новую книгу (Макросы/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
 
Ответить
СообщениеДобрый день.

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

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

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

Svod_Reg.Activate
Svod_Reg.Select
Svod_Reg.Copy
[/vba]

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

Автор - lopuxi
Дата добавления - 19.04.2016 в 11:22
SLAVICK Дата: Вторник, 19.04.2016, 11:31 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Svod_Reg - имя листа

Ну если Svod_Reg - имя то и не скопируете.
Как еще можно скопировать лист?

Так:
[vba]
Код
Sub d()
With ThisWorkbook.Sheets("Svod_Reg")
    .Visible = -1
    .Copy
    .Visible = 2
End With
End Sub
[/vba]
К сообщению приложен файл: 4612309.xlsm (16.8 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Svod_Reg - имя листа

Ну если Svod_Reg - имя то и не скопируете.
Как еще можно скопировать лист?

Так:
[vba]
Код
Sub d()
With ThisWorkbook.Sheets("Svod_Reg")
    .Visible = -1
    .Copy
    .Visible = 2
End With
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 19.04.2016 в 11:31
lopuxi Дата: Вторник, 19.04.2016, 11:38 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 142
Репутация: 0 ±
Замечаний: 0% ±

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


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


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

Сообщение отредактировал lopuxi - Вторник, 19.04.2016, 11:39
 
Ответить
Сообщение
Ну если Svod_Reg - имя то и не скопируете.


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

Автор - lopuxi
Дата добавления - 19.04.2016 в 11:38
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]


О_о ...и так можно было?
 
Ответить
СообщениеЯ добавил защиту книги и у меня теперь ругается

[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 в 11:48
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]


О_о ...и так можно было?
 
Ответить
СообщениеВсе ! Спасибо! Справился.
вот так все работает
[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]

Автор - lopuxi
Дата добавления - 19.04.2016 в 12:05
dredder_gun Дата: Вторник, 03.05.2016, 08:08 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

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


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

Автор - dredder_gun
Дата добавления - 03.05.2016 в 08:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать скрытый лист в новую книгу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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