Book.Save(ProjectPath & "Attachments\规格\" & Tables("订单情况").Current("IO") & "\" & Tables("订单情况").Current("IO") & T3 & T2 & T4 & T & ".xls")
excel报表打印最后有BOok.save,直接保存在你的路径下.