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

Question

现有可以移动单个的
Sub myMove()

Workbooks.Open Filename:="D:\hd数据图片制作汇总表.xlsx"
i = Sheets.Count
Sheets("k2d_Spot").Select
Sheets("k2d_Spot").Move After:=Workbooks("新建 Microsoft Office Excel 工作表.xlsx").Sheets(i)

End Sub
补充：需要移动的是指定的sheet名称的多个sheet，且名称不相同，如一个工作簿中存在A B C D E F 六个名称的sheet，需要经A C F三个sheet移动到另一个工作簿中。

Answer 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