VB如何將工作表從一個工作簿複製到另一個工作簿

Question

我無法使用Visual Basic將工作表從一個工作簿複製到另一個工作簿。

我的代碼到目前爲止打開一個空白的工作簿，它打開另一個Excel文件，我想複製的工作表。下面是我的了：

'This creates the new workbook 
    Set NewBook = Workbooks.Add 
    NewBook.Title = MyRecordset.Fields(1) & "_Tables" 
    'This creates a sheet named "2-13" 
    Sheets.Add().name = "2-13" 

    'This will open up the existing excel file with the sheet i want to copy over 
    Set XlApp = New Excel.Application 

    XlApp.Visible = True 

    XlApp.Workbooks.Open (CurrentProject.Path & "\Charts\" & MyRecordset.Fields(1) & "_Charts") 
    Set wBook = XlApp.Workbooks(XlApp.Workbooks.Count) 

    Set wSheet2 = wBook.Sheets("L1") 

所以，NewBook是空白的excel文件和wBook是具有所謂的「L1」，我想對複製到NewBook工作表中的表Excel文件名爲「2-13 」。任何幫助將不勝感激！由於

Answer 1

爲copy一個工作表中的內容複製到另一個：

' Get contents of worksheet. 
wBook.Sheets("L1").UsedRange.Copy 

' Paste contents into new sheet. 
NewBook.Sheets("2-13").Paste