VB如何将工作表从一个工作簿复制到另一个工作簿答案

【问题标题】：VB how to copy a sheet from one workbook to anotherVB如何将工作表从一个工作簿复制到另一个工作簿
【发布时间】：2017-08-29 23:33:36
【问题描述】：

我在使用 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”的工作表的 excel 文件，我想将其复制到名为“2-13”的工作表中的 NewBook。任何帮助将不胜感激！谢谢

【问题讨论】：

标签： vba excel

【解决方案1】：

到copy 一个工作表的内容到另一个：

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

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

【讨论】：

非常感谢！