Sub myMove() i = Sheets.Count Workbooks.Open Filename:="带路径的EXCEL工作簿名.xls" Sheets("工作表名").Select Sheets("工作表名").Move After:=Workbooks("当前打开的EXCEL工作簿名.xls").Sheets(i)End Sub
