Копировать скрытый лист Excel

Question

Я пытаюсь скопировать скрытый лист Excel, но он показывает ошибку "сбой метода копирования класса листа"

Workbooks("FCD Alert").Activate
xPath = Application.ActiveWorkbook.Path

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        DisplayAlerts = False
    End With

    Set Sourcewb = ActiveWorkbook
    Sheets("Yesterday").Activate
    'Copy the ActiveSheet to a new workbook
    Sheets("Yesterday").Copy <- This region is getting Highlighted 
    Set Destwb = ActiveWorkbook

    'Determine the Excel version and file extension/format
    With Destwb
        If Val(Application.Version) < 12 Then
            'You use Excel 97-2003
            FileExtStr = ".xls": FileFormatNum = -4143
        Else

Answer 1

Метод .Copy создает новую рабочую книгу только с скопированным листом.В любой рабочей книге должен быть виден хотя бы один лист (вы можете проверить это независимо, попытавшись создать новую рабочую книгу только с одним рабочим листом, а затем попытаться скрыть ее:

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

Set Sourcewb = ActiveWorkbook
Dim yesterday as Worksheet
Dim wsVis as Long
Set yesterday = Sourcewb.Sheets("Yesterday")
wsVis = yesterday.Visible  ' # Get the sheet's visible state
yesterday.Visible = xlSheetVisible  ' # Make it Explicitly visible
'Copy the ActiveSheet to a new workbook
Set Destwb = yesterday.Copy
yesterday.Visible = wsVis ' # return it to its original visible state