Копировать лист в новый файл без макросов

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать лист в новый файл без макросов (Макросы/Sub)

Stork4ever

Дата: Пятница, 11.11.2016, 10:18 | Сообщение № 1

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

Ранг: Участник

Сообщений: 82

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

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

Excel 2013

Макросом копирую лист из основной книги в новую. Недавно обнаружил, что лист, который подлежит копированию содержит Worksheet_Activate(). После копирования в новой книге он сохраняется и продолжает работать. Можно ли как-то при копировании удалить, или запретить перенос?
[vba]

Код

Private Sub Worksheet_Activate()
Skiped...
End Sub

[/vba]

Ответить

SLAVICK

Дата: Пятница, 11.11.2016, 10:41 | Сообщение № 2

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

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

Сообщений: 2290

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

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

2019

Можно удалить:
[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]
Можно просто создать новую книгу и скопировать все ячейки из первого листа в новый.

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

Ответить

Stork4ever

Дата: Пятница, 11.11.2016, 11:21 | Сообщение № 3

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

Ранг: Участник

Сообщений: 82

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

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

Excel 2013

Благодарю! Все получилось.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать лист в новый файл без макросов (Макросы/Sub)

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