打开工作簿，关闭工作簿

ActiveWorkbook.SaveAs filename:=path, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
Workbooks.Open path