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

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com