vbs 打开指定路径EXCEL

Question

条件：
原有一个EXCEL文件为“样品.xls”路径为：d:\123\样品.xls
拜求高手写个VBS码，就是粘贴到记事本改后缀的那种
要求：
点击VBS文件则自动进行如下操作
复制 样品.xls 到 D:\样品记录 文件夹中
并且改名为 昨天 日期 如：2013-10-28.xls 或则 10月28日样品.xls （如能后者效果最好）
且自动打开该文件（弹出EXCEL窗口进些编辑的那种）
路径，文件名之类，可以变更的地方，还望括号注解下！以便换文件夹或文件名时可用！

要完整代码，复制粘贴能用的那种！
先拜谢各位路过写码的高手，膜拜赐予此码的神人！

Answer 1

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