VBあるブックから別のブックにシートをコピーする方法

Question

ビジュアルベーシックを使用してブックを別のブックにコピーするときに問題があります。

これまでのコードでは、空のワークブックが開き、別の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が空白のファイルをエクセルやwBookは「2-13と呼ばれる私はシートにNewBookに上書きコピーしたい「L1」と呼ばれるシートを持つExcelファイルであります"どんな助けでも大歓迎です！別のワークシートのおかげで

Answer 1

copyべき内容：

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

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