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