Application.ScreenUpdating=FalseWorkbooks.Open"测试.xls"'读取或写入数据的代码Workbooks("测试.xls").CloseSaveChanges:=TrueApplication.ScreenUpdating=True