230问答网 > 如何用VBA将移动EXCEL的多个SHEET转到另一个excel中

如何用VBA将移动EXCEL的多个SHEET转到另一个excel中

2025-01-31 15:11:21

推荐回答（1个）

回答1：

Sub myMove()

' 定义需要移动的sheet数量
i=3
' 定义需要移动的sheet的名称
dim sname(16) as string
sname(1)="A"
sname(2)="C"
sname(3)="F"
' 以上内容，必须先明确

Workbooks.Open Filename:="D:\hd数据图片制作汇总表.xlsx"

for n=1 to i
Windows("hd数据图片制作汇总表").Activate

Sheets(sname(n)).Select
Sheets(sname(n)).Move After:=Workbooks("新建 Microsoft Office Excel 工作表.xlsx").Sheets(1)

next n

End Sub