excel - 将特定工作表复制到新工作簿

Question

如何编写一个宏来从工作簿 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

Answer 1

这应该做的工作：

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