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")

您还可以在“SCAD...”工作表之前插入该工作表，只需更改After:=为Before:=. 此外，如果您不一定知道目标工作簿中的工作表名称，则可以使用After:=Wkbdest.sheets(sheets.count)它将其插入到最后一个工作表之后。