Excel vba保存为删除一个工作簿。

申请。显示警报=假

工作表(工作表。数数)。删除'删除最后一个工作表。

对于i = 70到367

s = i & amp”& amp范围(“b6”)

活动工作簿。savecopyas文件名:= "d: \我的文档\信用村评估\ " &；标准普尔。".xls "，_

文件格式:=xlExcel8

然后

申请。显示警报=真

末端接头