vbs 打开指定路径EXCEL
发布网友
发布时间：2022-04-21 08:13
共1个回答
热心网友
时间：2023-07-14 17:17
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
