Sub 复制并重名工作簿()Application.Run "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls" & "!" & 更新日报表End end Sub注:更新日报表 为录制宏的名字前面部分为工作表名,操作准是不行,请问高手,到底是什么问题
打开了,总是不行
F8执行这个语句,提示什么,希望拷屏