Set fso=CreateObject("scripting.Filesystemobject")
dizi="D:\123\样品.xls" '原文件地址
riqi=CDate(FormatDateTime(Now(),2))-1 '当前日期减一天
mbdz="D:\样品记录\"&riqi&".xls" '目标地址
fso.CopyFile dizi,mbdz,True '复制文件,如果文件存则覆盖
Set fso=Nothing '释放对象
Set oshell=CreateObject("wscript.shell")
oshell.run "excel.exe " & mbdz '打开excel文件
Set oshell=nothing