將特定工作表複製到新工作簿

如何編寫一個宏，該工作簿將從工作簿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 Mike Barnes

你嘗試過什麼？給宏錄像機一個機會，看看代碼，如果卡住了，就回來！ :-) – 2013-02-18 13:50:00

我已經嘗試過複製活動工作表而不是工作表二的代碼，因爲我故意隱藏了該工作表。我將編輯問題並添加代碼。 – 2013-02-18 13:53:03

這應該做的工作：

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

來源

2013-02-18 14:20:40

將特定工作表複製到新工作簿

回答

相關問題