我正在尝试将整个工作表从一个 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
最佳答案
在“执行复制
”下尝试此操作
wkbSource.Sheets("tt").Copy After:=wkbDest.Sheets("SCADAWOs")
您还可以在“SCAD...”工作表之前插入工作表,只需将 After:=
更改为 Before:=
即可。另外,如果您不一定知道目标工作簿中的工作表名称,则可以使用 After:=Wkbdest.sheets(sheets.count)
将其插入到最后一个工作表之后。
关于vba - Excel VBA : Copy Sheet from a workbook to another workbook in different location,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31655588/