Скопируйте лист из одной книги в другую книгу

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