15问答网 > 怎么用vbs把一个excel文件中的工作表复制到另一个excel文件中

怎么用vbs把一个excel文件中的工作表复制到另一个excel文件中

没人吗自己顶下

2024-11-22 20:35:36

推荐回答（1个）

回答1：

Sub WORK()

Set book_A = ThisWorkbook.Sheets("Sheet1") '设置要复制的工作表
Set xlbook = Workbooks.Open(ThisWorkbook.Path & "\02.xls") '打开同目录下要复制到的工作簿
Set sh = xlbook.Sheets("Sheet2") '设置要复制到的工作表

Windows(ThisWorkbook.Name).Activate '复制sheet1中的内容
book_A.Select
Cells.Select
Selection.Copy

Windows("02.xls").Activate '将内容粘贴到目标工作表中
sh.Select
ActiveSheet.Paste

End Sub