Question

所以也许我只是没有在这里得到一些东西，但我有一个隐藏的工作表，根据其他隐藏的工作表列出几个列。我试图尽量减少用户干预...： - ）

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

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

Answer 2

无法将隐藏的工作表复制到新工作簿中新工作簿只有1张（隐藏），但每个wb至少需要一张可见的工作表

如果您创建了一个可见的工作表并将隐藏的作品稍后复制到其中，则可以正常工作

Sub Makro1()
  Dim wbNew As Workbook
  Set wbNew = Workbooks.Add
  ThisWorkbook.Sheets("Hidden Sheet").Copy Before:=wbNew.Sheets(1)
End Sub

尝试一下：）

我是否可以将工作表复制到新工作簿中（如果它已隐藏）

2 个答案: