将工作表从一个工作簿复制到另一个工作簿

Question

我需要从一个工作簿中获取（复制）工作表并将其附加到现有的Excel文档的末尾。我写了这段代码，但它不起作用，并给出了一个错误。请帮助=）

Public wb As Workbook 'workbook with the source sheet 
Sub test() 
    dim wbNew as workbook 'destination workbook 
    Set wbNew = Workbooks.Open(Me.fileDestPathTextBox.Value) 

    wbNew.Sheets.Add After:=wbNew.Sheets(wbNew.Sheets.Count).Name = Me.sheetNameTextBox.Value 
    wb.Sheets("Souce Sheet").Copy wbNew.Sheets(Me.sheetNameTextBox.Value) 
End Sub 

Answer 1

你不添加一个表，然后尝试和您的工作表复制到表 - 你刚才复制的原片到目标工作簿：

Sub test() 
    dim wbNew as workbook 'destination workbook 
    Set wbNew = Workbooks.Open(Me.fileDestPathTextBox.Value) 


    wb.Sheets("Souce Sheet").Copy After:=wbNew.Sheets(wbNew.Sheets.Count) 
End Sub