VBA。如何从此导出代码中排除隐藏表？

Question

Sub SaveShtsAsBook() 
    ‘Select all visible and hide sheet’
    Dim Sheet As Worksheet, SheetName$, MyFilePath$, N& 
    MyFilePath$ = ActiveWorkbook.Path & "\" & _ 
    Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) 
    With Application 
        .ScreenUpdating = False 
        .DisplayAlerts = False 
         '      End With
        On Error Resume Next '<< a folder exists
        MkDir MyFilePath '<< create a folder
        For N = 1 To Sheets.Count 
            Sheets(N).Activate 
            SheetName = ActiveSheet.Name 
            Cells.Copy 
            Workbooks.Add (xlWBATWorksheet) 
            With ActiveWorkbook 
                With .ActiveSheet 
                    .Paste 
                    .Name = SheetName 
                    [A1].Select 
                End With 
                 'save book in this folder
                .SaveAs Filename:=MyFilePath _ 
                & "\" & SheetName & ".xlsx" 
                .Close SaveChanges:=True 
            End With 
            .CutCopyMode = False 
        Next 
    End With 
    Sheet1.Activate 
End Sub 

我想创建一个单独的 Excel 工作簿，里面只有一张工作表，但我不想包括那些隐藏的工作表，但我不能删除它们，因为我下次需要它们。

Answer 1

如果你只想复制可见的工作表，那为什么不只复制可见的工作表呢？

你不能这样做吗：

For N = 1 To Sheets.Count 
    If Sheets(N).Visible = xlSheetVisible Then
         ... Copy the sheet
    End It
Next N

或者你的意思是你想复制隐藏的工作表，但让它们在目标工作簿中保持隐藏状态？在这种情况下，您可以在创建新工作表后设置 Visible 属性。

或者您可能会考虑使用Worksheet.Copy 来复制工作表，而不是复制和粘贴工作表内容。这样会更有效，因为它可以避免使用剪贴板。