现有可以移动单个的
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移动到另一个工作簿中。