EXCEL VBA：将工作簿中的工作表复制到不同位置的另一个工作簿

Question

我正在尝试将整个工作表从一个Excel文件复制到另一个Excel工作表中。以下是我写的代码不起作用。请提出修改建议。

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

在'perform copy

下试试

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

您也可以在＆＃34; SCAD ...＆＃34;之前插入表格。表格，只需将After:=更改为Before:=即可。此外，如果您不必知道目标工作簿中的工作表名称，则可以使用After:=Wkbdest.sheets(sheets.count)，它将在最后一个工作表之后进行检查。