本回答有11位钻石用户推荐
回答者:
zhangli0 - 超级顾问  第15级
2019-07-25 16:40:06
''当前为按钮触发,
''创建一张当前日期命名的表格,如存在,跳过
Dim fso,myfile,daystr,dstr,fname
dstr=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))
fname="E:\报表\" + dstr + ".xls"
Set fso=CreateObject("scripting.FileSystemObject")
Set MyFile=fso.GetFile("E:\模板excel.xls")
If fso.FileExists(fname) Then
''MsgBox "文件已经存在"
''文件存在,不执行
else
MyFile.Copy(fname) ''''不存在,复制模板
End If
''检测当前日期名表格是否打开,如有,关闭保存