vba - Excel VBA : Copy Sheet from a workbook to another workbook in different location

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

在“执行复制”下尝试此操作

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

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