从关闭工作簿复制除隐藏工作表外的所有工作表

Question

我想在Sheet1之后将所有工作表从特定工作簿复制到当前工作簿

Sub CopyAllSheets()
Dim MastWB  As Workbook
Dim SalesWB As Workbook


    Set MastWB = ThisWorkbook 'change to suit
    Set SalesWB = Workbooks.Open("F:\WIN7PROFILE\Desktop\Rporting\Test.xls")

    SalesWB.Sheets.Copy after:=MastWB.Sheets("Sheet1")
    Workbook.SalesWB.Close

End Sub

此代码正在复制所有工作表，包括隐藏的工作表。如何只复制可见的工作表？

Answer 1

代码将需要在源工作簿中循环工作表，并检查visible属性。这可以是XLSheetVisibility枚举的任何成员:XLSheetHidden、XLSheetVeryHidden或XLSheetVisibily。如果您只想要可见的工作表，那么就像下面的代码一样（基于问题中的代码）。

请注意，您可能希望将ThisWorkbook更改为ActiveWorkbook，因为ThisWorkbook表示包含代码的工作簿...

Sub CopyAllSheets()
Dim MastWB  As Workbook
Dim SalesWB As Workbook
Dim ws as Worksheet

    Set MastWB = ThisWorkbook 'change to suit
    Set SalesWB = Workbooks.Open("F:\WIN7PROFILE\Desktop\Rporting\Test.xls")

    For Each ws In MastWB.Worksheets
        If ws.Visible = xlSheetVisible Then
          SalesWB.Sheets.Copy after:=MastWB.Sheets(ws)
          Workbook.SalesWB.Close
        End If
    Next
End Sub