将特定工作表复制到新工作簿答案

【问题标题】：Copy a specific sheet to a new workbook将特定工作表复制到新工作簿
【发布时间】：2015-09-12 09:48:26
【问题描述】：

如何编写一个宏来从工作簿 1 复制工作表 2 并创建一个新工作簿并将该工作表粘贴到新工作簿中如果我单击我在工作表 1 底部添加的按钮，工作簿 1。

编辑此代码复制活动工作表（这不是我想要的工作表）并通过提示另存为来完美地完成其余部分，这很酷，但是我需要复制工作表 2 而不是活动工作表。

Sub GetQuote()

   Dim activeWB As String
   Dim thisSheet As String

   activeWB = ActiveWorkbook.Name
   thisSheet = Workbooks(activeWB).ActiveSheet.Name
   Workbooks.Add
   Workbooks(activeWB).Sheets(thisSheet).Copy _
   Before:=ActiveWorkbook.Sheets(1)
   Application.Dialogs(xlDialogSaveAs).Show
   ActiveWorkbook.Close

End Sub

【问题讨论】：

你试过什么？给宏记录器一个机会，看看代码，如果你卡住了就回来！ :-)
我尝试了复制活动工作表而不是第二张工作表的代码，因为我故意隐藏了该工作表。我将编辑问题并添加代码。

标签： excel vba

【解决方案1】：

这应该可以完成工作：

Sub GetQuote()
    ThisWorkbook.Sheets("Sheet2").Copy
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

【讨论】：