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

Вход

Регистрация

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

 

= Мир MS Excel/Копировать лист в новый файл без макросов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать лист в новый файл без макросов (Макросы/Sub)
Копировать лист в новый файл без макросов
Stork4ever Дата: Пятница, 11.11.2016, 10:18 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Макросом копирую лист из основной книги в новую. Недавно обнаружил, что лист, который подлежит копированию содержит Worksheet_Activate(). После копирования в новой книге он сохраняется и продолжает работать. Можно ли как-то при копировании удалить, или запретить перенос?
[vba]
Код
Private Sub Worksheet_Activate()
Skiped...
End Sub
[/vba]
 
Ответить
СообщениеМакросом копирую лист из основной книги в новую. Недавно обнаружил, что лист, который подлежит копированию содержит Worksheet_Activate(). После копирования в новой книге он сохраняется и продолжает работать. Можно ли как-то при копировании удалить, или запретить перенос?
[vba]
Код
Private Sub Worksheet_Activate()
Skiped...
End Sub
[/vba]

Автор - Stork4ever
Дата добавления - 11.11.2016 в 10:18
SLAVICK Дата: Пятница, 11.11.2016, 10:41 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1834
Репутация: 613 ±
Замечаний: 0% ±

2007,2010,2013,2016
Можно удалить:
[vba]
Код
Sub d()
Dim wb As Workbook, iVBComponent
  Sheets("Лист2").Copy

    Set wb = ActiveWorkbook
    For Each iVBComponent In wb.VBProject.VBComponents
        With iVBComponent
             Select Case .Type
                 Case 1 To 3: .Collection.Remove iVBComponent
                 Case 100: .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
             End Select
        End With
    Next
End Sub
[/vba]
Можно просто создать новую книгу и скопировать все ячейки из первого листа в новый.


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМожно удалить:
[vba]
Код
Sub d()
Dim wb As Workbook, iVBComponent
  Sheets("Лист2").Copy

    Set wb = ActiveWorkbook
    For Each iVBComponent In wb.VBProject.VBComponents
        With iVBComponent
             Select Case .Type
                 Case 1 To 3: .Collection.Remove iVBComponent
                 Case 100: .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
             End Select
        End With
    Next
End Sub
[/vba]
Можно просто создать новую книгу и скопировать все ячейки из первого листа в новый.

Автор - SLAVICK
Дата добавления - 11.11.2016 в 10:41
Stork4ever Дата: Пятница, 11.11.2016, 11:21 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 59
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Благодарю! Все получилось.
 
Ответить
СообщениеБлагодарю! Все получилось.

Автор - Stork4ever
Дата добавления - 11.11.2016 в 11:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать лист в новый файл без макросов (Макросы/Sub)
Страница 1 из 11
Поиск:

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