gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 19:56:21 26 4
gpt4 key购买 nike

我正在尝试将整个工作表从一个 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/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com