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

问题描述：

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

你尝试过什么？给宏录像机一个机会，看看代码，如果卡住了，就回来！ :-) – 2013-02-18 13:50:00

我已经尝试过复制活动工作表而不是工作表二的代码，因为我故意隐藏了该工作表。我将编辑问题并添加代码。 – 2013-02-18 13:53:03

答

这应该做的工作：

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

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

相关推荐