vba - 如果隐藏工作表，我可以将工作表复制到新工作簿吗

Question

所以也许我在这里没有得到任何东西，但我有一个隐藏的工作表，其中列出了基于其他隐藏工作表的几列。我正在尽量减少用户干预...... :-)

我想将隐藏的工作表 1 复制到一个全新的工作簿中，作为具有上述值的可用工作表。当隐藏表可见时工作的代码:

Dim wbNew As Workbook

     Application.DisplayAlerts = False
    Worksheets("HiddenSheet").Copy

    Set wbNew = ActiveWorkbook
    With wbNew
        With .Worksheets(1).UsedRange
            .Value = .Value
        End With
        .SaveAs ThisWorkbook.Path & "\"
        .Close True
     End With

所以我仍然想将工作表复制到一个新的工作簿......只是想在隐藏工作表的情况下进行。

有什么想法吗？

Answer 1

绝对放置这一行:

Worksheets("HiddenSheet").Visible = xlSheetVisible

在此行之前:

Worksheets("HiddenSheet").copy