EXCEL VBA：将工作表中的工作表复制到其他位置的工作簿中

Question

I am trying to copy a whole sheet from one Excel file to a sheet in another. Following is the code I wrote which doesn't work. Please suggest changes.

Sub copyallwos()

Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shttocopy As Worksheet
Dim wbname As String

Set wkbSource = Workbooks.Open("C:\Users\AV\Documents\New folder\SCADA Wos.xlsm")

Set wkbDest = Workbooks("C:\Users\AV\Documents\New folder\MASTER.xlsm")

'perform copy
Set shttocopy = wkbSource.Sheets("tt")
shttocopy.Copy
wkbDest.Sheets("SCADAWOs").Select
ActiveSheet.Paste

End Sub

Answer 1

Try this under 'perform copy

wkbSource.Sheets("tt").Copy After:=wkbDest.Sheets("SCADAWOs")

You can also insert the sheet before your "SCAD..." sheet, just change After:= to Before:= . Also, if you don't necessarily know a sheet name in the destination workbook, you can use After:=Wkbdest.sheets(sheets.count) which will instert it after the last Worksheet.