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

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

1 个答案: