如果隐藏，我可以将表单复制到新的工作簿中

所以，也许我只是没有在这里得到的东西，但我有一个隐藏的工作表，其中列出了其他隐藏工作表的几个列。 我正在尽量减less用户干预… 🙂

我想将隐藏工作表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

是不可能复制隐藏工作表到一个新的工作簿
新的工作簿将只有1张（隐藏），但每个工作簿至less需要一个可见的工作表

如果你创build一个可见的工作表，然后将隐藏的工作表复制到工作表中，它就可以工作

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

尝试一下 ：）

Answer 2

绝对放置这一行：

 Worksheets("HiddenSheet").Visible = xlSheetVisible 

在这行之前：

 Worksheets("HiddenSheet").copy